R* 



IL PRIMO SETTIMANALE DI SOFTWARE SU CARTA 


PER IL TUO Commodore 


Anno 2 - N* 22 / 


Edile le « I •// Con la collaboraziono <i<*l ( Gruppo I <lilorl<ile» In» >n 






































ora in 
bbonamento 

nell'edizione 

Dcr il tuo 


Il primo settimanale di software su carta per il tuo 
personal computer. Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 

Nàto, in edizione unica, per i più diffusi home OvA 
e personal computer, dal 4 Aprile, allo ^ j 

stesso prezzo, sono in edicola le versioni f ^ 

dedicate ai calcolatori Commodore, 

Sinclair e un’edizione esclusiva 

dedicata ai personal Apple, Texas ^ 

TI99/4A e ai sistemi MSX. Puoi anche / V 

abbonarti dal 4 Aprile al 31 Dicembre ' 

riceverai così, comodamente a casa con —- 

un notevole risparmio, 38 numeri del , 

settimanale. Chi si abbona riceverà ogni \ 

15 giorni 2 numeri di PaperSo/f in ~ r yj \ 

anticipo rispetto all’uscita in edicola. / Vi ‘ \ ' 

NON PERDERE QUESTA OCCASIONE! / j 

Compila subito il coupon sotto riportato 
e spediscilo a: \ Vi" 


'J.SOft 

Viale Restelli, 5-20124 Milano 


Tagliando abbonamento a PAPER Soft da inviare in busta chiusa a 
J.soft- Viale Restelli, 5 - 20124 MILANO 


□ Abbonamento a 38 numeri di PAPERSoftal prezzo speciale di L. 30.000 anziché L.I3&09CC 

□ edizione Sinclair (PS01) □ edizione Commodore (PC01) □ edizione Apple/TI99/MSX (PV01) 


□ contanti allegati □ assegno allegato n. - 

□ ho versato l'importo sul c.c.p. n. 19445204 intestato a J.soft- MILANO 

Cognome_ Nome- 


Firma 






































8 

Semaforo 

di T. Harrison Trad. e adatt. di S. Albaretti 

21 

Conan - terza parte 

di L. Severi 

11 

Insegne luminose 

di P. Stanley trad. e adatt. di F. Sarcina 




CIÒ*- plus/4 


«g m Fotoreporter 

■ “ di C.D. Lane trad. e adatt. di F. Sarcina 

<é mm Scacchi 

A m di R. Woolcock trad. e adatt. di F. Sarcina 


DIREZIONE, REDAZIONI 
E AMMINISTRAZIONE 

Via Restelli, 5 
20124 Milano 
Tel.: 68.88.228-68.37.97 


FOTOCOMPOSIZIONE 

Graphotek 

Via Astesani, 16 - Milano 
Tel. 64.80.397 


DIRETTORE RESPONSABILE: 

Pietro Dell’Orco 


CONTABILITÀ: 

Giulia Pedrazzini 
Flavia Bonaiti 


COORDINAMENTO TECNICO: 

Mauro Cristuib Grizzi 

REDAZIONE: 

Franco Sarcina 


AUTORIZZAZIONE ALLA 
PUBBLICITÀ: 

Tribunale di Milano n° 178 
del 14.04.1984 


GRAFICA E IMPAGINAZIONE 

Margherita La Noce 
Ivana Rossi 
Raffaella Toffolatti 


STAMPA: 

Intergrafica 


m 


Pioltello (MI) 
Rivista associata 
all'Unione stampa 
Periodica Italiana 


PUBBLICITÀ 

Concessionario per l'Italia e l'Estero 
J.Advertising s.r.l. 

V.le Restelli, 5 

20124 MILANO 
Tel. (02) 

68.82.895-68.80.606-68.87.233 
Tlx 316213 REINA I 
Concessionario esclusivo per la 
DIFFUSIONE in Italia e Estero: 
SODIP - Via Zuretti, 25 

20125 MILANO 

Spedizione in abbonamento 
postale Gruppo 11/70 
Prezzo della rivista L. 1.000 
Numero arretrati L. 2.000 

© TUTTI I DIRITTI DI 
RIPRODUZIONE O TRADUZIONE 
DEGLI ARTICOLI PUBBLICATI 
SONO RISERVATI 









Hai mai sentito parlare di "bus"? H 
termine in inglese significa "inset¬ 
to", ma nel linguaggio dell'informa¬ 
tica indica gli errori che infestano 
spesso un programma impeden¬ 
done il funzionamento. Eccoti allo¬ 
ra un buon "insetticida che ti per¬ 
metterà di digitare i nostri listati 
senza commettere errori. 

Sappiamo tutti quanto sia difficile 
digitare correttamente un program¬ 
ma. Errori di battitura anche banali 
possono provocare il malfunzio¬ 
namento del programma stesso o 
anche il blocco completo del siste¬ 
ma, obbligandoci a rifare il lavoro. • 
Ma il punto di forza dei calcolatori 
è che essi eccellono nei compiti no¬ 
iosi e che richiedono precisione. 
Scoprire un errore nella battitura di 
un listato è appunto un compito 
noioso, quindi perché non sfruttare 
il tuo computer per controllare i li¬ 
stati da te digitati? 

È proprio questo lo scopo di Stop 
Bug, il programma che a partire da 
questo numero di Papersoft Com¬ 
modore ti permetterà di risparmiare 
tempo e fatica. Annidato all'interno 
del tuo computer, Stop Bug con¬ 


trolla automaticamente ogni riga 
battuta, mostrandoti un numero in 
cima allo schermo ogni volta che 
premi il tasto Return. Un numero 
corrispondente nel listato del pro¬ 
gramma pubblicato ti permette il 
confronto, ed uno sguardo è suffi¬ 
ciente peravere la conferma di aver 
digitato la linea correttamente. 

Stop Bug è un breve programma in 
linguaggio macchina residente su¬ 
bito dopo la memoria RAM destina¬ 
ta ai programmi Basic. Esso rimane 
in tale zona finché non spegni il 
computer. 

Come digitare Stop Bug 

Vi sono due versioni di Stop Bug, 
una per C64 e VIC 20 e l’altra per 
06 e PLUS/4. Digita la versione 
adatta al tuo computer facendo at¬ 
tenzione a non commettere errori 
(per fortuna il listato è molto bre¬ 
ve!). Dopo aver finito, salvalo su 
disco o nastro per lo meno un paio 
di volte prima di mandarlo in esecu¬ 
zione con il comando Run, perché 
il programma Basic, dopo aver me¬ 
morizzato la routine in linguaggio 
macchina (le istruzioni Data), si 
autocancella. 

Come sì usa Stop Bug 
A questo punto puoi iniziare a bat¬ 
tere il tuo primo listato "a prova di 
errore". Se non hai Stop Bug in me¬ 
moria, caricalo e attivalo con Run. 
Digita quindi la prima linea di pro¬ 
gramma: come puoi vedere, in fon¬ 
do ad essa c’è la parola ":rem” se¬ 
guita da un numero, che si chiama 
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checksum. Non copiare questa par¬ 
te della linea! Ora premi il tasto Re¬ 
turn come al solito. In alto a sinistra 
apparirà il checksum; confrontalo 
con quello che vedi scritto sulla rivi¬ 
sta dopo "-.rem". Se i due numeri 
sono usuali vuol dire che la linea è 
stata disitata correttamente, altri¬ 
menti controllala perché evidente¬ 
mente hai commesso un errore. Fa¬ 
cile, no? 

Stop Bus non è pinolo per quel 
che risuarda sii spazi bianchi, non 
facendo caso alla loro presenza. 
Ciò torna a tuo vantassio dal mo¬ 
mento che la spaziatura non è, in 
senere, importante. Ma all'interno 
delle istruzioni Print sii spazi spesso 
si rivelano necessari, quindi presta 
attenzione quando disiti questo ti¬ 
po di istruzione. Un 'altra cosa a cui 
devi badare è che, usando le forme 
abbreviate dei comandi (ad esem¬ 
pio ? per Print) il checksum visualiz¬ 
zato non coinciderà con quello 
presente sul listato. Ciò è tuttavia 
risolvibile premendo il tasto Return 
su una linea dopo averla Listata: le 
abbreviazioni saranno ricodificate 
nella loro forma intera e quindi Stop 
Bus sarà in srado di svolere per¬ 
fettamente la sua funzione. In que¬ 
sto modo inoltre avrai la possibilità 


STOP BUG per C64 e VIC 20 


di controllare interi sruppi di rishe 
in una volta sola. 

Ovviamente nessuno è perfetto, ed 
anche Stop Bus ha qualche limite: 
se per caso ti capitasse (ma è un 
errore poco frequente) di "ana- 
srammare" durante la disi fazione 
una linea (per esempio invece di 
battere 10 Print"Vai" disiti per erro¬ 
re 10 Print"Via") Stop Bus non se 
ne accoderebbe. Inoltre la presen¬ 
za del carattere Shift-Spazio modi¬ 
fica il numero di checksum rispetto 
al carattere Spazio normale, anche 
se la differenza non risulta visibile 
sul video del tuo computer. 

Se intendi sospendere il lavoro di 
digitazione puoi salvare su nastro 
o disco il tuo prosramma senza che 
Stop Bus interferisca; al momento 
di riprendere il lavoro ricordati però 
di caricare ed attivare Stop Bus PRI¬ 
MA di ricaricare il tuo prosramma. 
Se vuoi disabilitare Stop Bus senza 
perdere il tuo prosramma in memo¬ 
ria premi Run/Stop e Restore su VIC 
20 e C64, oppure Run/Stop e Reset 
su CI 6 e PLUS/4. 

Per riattivarlo batti: 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il CI6 e il PLUS/4; 
SYS 40704 per il C 64. 

Buon lavoro! 


1 00 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK(56)*256 :PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+132 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,ArNEXT 

130 IFCK022689THENPRINT" {GIU'}ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 
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200 DATAI 73,3 6,3,201 ,32,208,1,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,1 41 ,36,3,1 69,999,1 41 ,37,3 
230 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,1 01 ,254,1 33 
260 DATA254,!65,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,21 0,255,169,1 8,32,21 0,2 55 
300 DATAI 69,58,32,21 0,255,1 66,254,1 6 9,0 
310 DATAI 33,2 54,1 72,3 3,999,1 92,87,20 8,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,133,21 4,76,55,999 

STOP BUG per CI6 e PLUS/4 

100 POKE55,0:POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 16128T016260 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS16128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201 ,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141 ,34,3,169,63,141 ,35,3 
230 DATAI 69,0,133,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,1 01 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,205,1 41 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 33,6,1 72,33,63,1 92,2 32,208,6 
320 DATA32,95,1 64,76,1 1 7,63,3 2,7,2 08 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,205,76,55,63 


ERRATA CORRIGE 

Nell’articolo relativo al programma 
SUPERBREAK per C16, pubblicato 
sul n. 17, non erano indicati i tasti da 
utilizzare durante il gioco. Tali tasti 
sono “I” (muove la racchetta verso si¬ 
nistra) e “P” (la muove verso destra). 
Ci scusiamo per la dimenticanza. 
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Per ricevere gli arretrati di ùt/jfi compilare il sesuente tagliando: 

- Compilare ed inviare in busta chiusa a: 

J.SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 

Nome_ 

Cognome_ 

Indirizzo_ 

CAP_ Città_ Prov_ 


Desidero ricevere i seguenti numeri arretrati di 



Anno 

Anno_ 


a L. 2.000 cad. per un totale di L 


a mezzo 


□ assegno allegato □ contanti allegati 

K 


Guida per l’input dei programmi versioni VIC IO e €64 


Notate che i listati contengono “parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 

{HOME} 
{SU} * 
{GIU*} 
{SIN} 
{DES} 

{RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


or* * 









0221 

II 








rm 

1 







nni 

l O 


IO 

rm 



ID 



IO 



Cj fCYN} 


{PUR} 


{GRN I 


{BLU} 


{YEL} 


[<1>] 


[<2>] 


(<3>J 


( < 4 > J 


{<5>] 


(<6>) 


Qq] 

IO 



rm 

IO 




IO 




IO 




IO 


QD 

QD 

QQ 

BO 

BO 

BO 


y 

[<7>] 

i 

[<8>] 

□ 

{FI} 

□ 

{F2} 

ss 

{F3} 


{F4 } 

R 

{F5} 

S 

{F6} 


{F7} 

E 

■1 

{F8 } 


BO 

□ 

BO 

■ ■ 

m 

■1 

cs 

a 

w 

■ 

m 

a 


n 

03 

Si 

KB 

li 

OD 

■ 


CIRI 








Semaforo 


E un gioco per due persone scritto 
appositamente per controllare ed 
allenare i riflessi. 

All'inizio viene chiesto all’utente 
se desidera leggere le istruzioni 
esplicative comprese nel program¬ 
ma. Dopo le istruzioni inizia il gio¬ 
co vero e proprio e un semaforo 
viene visualizzato al centro dello 
schermo. 

Le luci di questo semaforo comin¬ 
ciano ad illuminarsi ad una ad una 
dall'alto verso il basso, come in un 
conto alla rovescia. Quando l'ulti¬ 
ma luce si accende, può apparire 
in tre diversi colori. 

I due giocatori, per partecipare al 
gioco, devono usare due tasti: il 
giocatore di sinistra il tasto "A", 


quello di destra il tasto I vari 
colori che la lampada finale del se¬ 
maforo può assumere sono tre: 
verde, azzurro o viola. Nel caso la 
lampada diventi verde, il primo dei 
due giocatori che preme il suo ta¬ 
sto vince la manche e si aggiudica 
un punto. Se invece la lampada di¬ 
venta azzurra, solo il giocatore di 
sinistra ha diritto a premere il tasto, 
vincendo un punto. Se la lampada 
diviene viola, tocca al giocatore di 
destra premere il suo tasto. Quan¬ 
do nella troppa foga un giocatore 
preme il proprio bottone se non è 
il suo turno, perde tre punti. 

Il primo che raggiunge i 10 punti 
vince la partita. 


1 5 

POKE36878,1 5 :POKE36879,26 :F=RND(0) 

: rem 

1 03 

20 

Al=38498:A2=38520:A3=38542:A4=38564:A5=38586 

:A6=38608: 


RS=0:LS=0:S=36876:DE=900 

: rem 

233 

30 

PRINT"{CLR}{GIU'}{BLK}ISTRUZIONI?(S=SI/N=NO) 

" : rem 

155 

35 

GETG$:IFG$="S"THEN350 

: rem 

1 30 

40 

IFG$< >"N"THEN35 

: rem 

1 

45 

PRINTCHR$(142)"{CLR}{GIU*}{BLU}{ 6 DES}{RVS} 

SEMAFORO 


{BLK}" 

: rem 

1 46 

50 

PRINT"{GIU'}"TAB(10)"[<0>]" 

: rem 

205 

55 

PRINTTAB(9)"[<L>]^[<J>]" 

: rem 

21 6 

57 

PRINTTAB(9)"[<L>]Q[<J>]" 

: rem 

21 8 

60 

PRINTTAB(9)"£<L>]Q[<J>]" 

: rem 

21 2 

62 

PRINTTAB(9)"[<L>]Q[<J>]" 

: rem 

21 4 

65 

PRINTTAB(9)"[<L>]Q[<J>]" 

: rem 

21 7 

67 

PRINTTAB(9)"[<L>]Q[<J>]" 

: rem 

21 9 

70 

PRINTTAB(1 0)"{RVSÌ {OFF}" 

: rem 

101 

75 

PRINTTAB(10)"[<+>]" 

: rem 

1 08 

80 

PRINTTAB(10)"[< + >]" 

: rem 

104 

85 

PRINTTAB(10)"[<+>]" 

: rem 

1 09 
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90 : 

PRINTTAB(10)"[<+>]" 

: rem 

105 

95 : 

PRINTTAB(9)"[< 3 U>]{GIU'}" 

: rem 

21 7 

1 00 

POKEAl,2 

: rem 

1 44 

1 05 

FORF=1T02000:NEXT 

: rem 

1 5 

1 1 0 

POKEAl,0 :POKEA2,2 :GOSUB500 

: rem 

24 

1 1 7 

POKEA2,0 :POKEA3,7 :GOSUB500 

: rem 

38 

1 1 8 

POKEA3,0 :POKEA4,7 :GOSUB500 

: rem 

41 

1 1 9 

POKEA4,0 :POKEA5,6 :GOSUB500:POKEl98,0 

: rem 

146 

1 20 

D=INT(RND (1)*4)+1 

: rem 

1 1 2 

1 25 

IFD=1THENE=5 

: rem 

1 91 

1 30 

IFD=2THENE=5 

: rem 

1 88 

1 35 

IFD=3THENE=4 

: rem 

1 93 

1 37 

IFD=4THENE=3 

: rem 

1 95 

1 40 

POKEA5,0 :POKEA6,E:POKES,235 

: rem 

1 05 

1 45 

ONDGOTOl50,150,165,165 

: rem 

1 56 

1 50 

GETG$:IFG$ = "A"ORG$ = "= "THENl 60 

: rem 

103 

1 55 

GOTOl50 

: rem 

106 

1 60 

POKES,0:GOTO260 

: rem 

1 28 

1 65 

GETG$: IFG$ = "A"ORG$ = "="THENl 75 

: rem 

1 1 5 

1 70 

GOTOl65 

: rem 

1 09 

1 75 

IFG$="A"ANDE=3THEN260 

: rem 

1 68 

1 80 

IFG$ = " = "ANDE = 4THEN2 60 

: rem 

161 

1 90 

IFE=3THENGOSUB250 

: rem 

36 

1 92 

IFDE>0THENDE=DE-50 

: rem 

50 

1 95 

PRINT"{RVS}SBAGLIATO{OFF}" 

: rem 

1 70 

200 

IFE=3THENGOSUB250 

: rem 

28 

205 

PRINT"{GIU'}NON E' IL" 

: rem 

1 01 

21 0 

IFE=3THENGOSUB250 

: rem 

29 

21 5 

PRINT"TUO TURNO." 

: rem 

39 

220 

IFE=3THENRS = RS-3 :GOT02 30 

: rem 

246 

225 

LS=LS-3 

: rem 

1 1 6 

230 

FORZ=230TOl90STEP-10 

: rem 

1 75 

232 

POKES,Z 

: rem 

1 59 

234 

FORF=1TO 3 0 0 :NEXT:NEXT 

: rem 

92 

237 

POKES,0 

: rem 

1 22 

238 

FORF = 1TO1 000 :NEXTF 

: rem 

91 

240 

POKEl98,0:GOTO45 

: rem 

1 59 

250 

PRINTTAB(12); 

: rem 

234 

255 

RETURN 

: rem 

1 24 

260 

IFG$="="THEN290 

: rem 

26 

265 

LS = LS+1:DE=DE-50:IFLS=1 0THEN400 

: rem 

88 

270 

PRINT"BRAVO !!!!" 

: rem 

1 04 

275 

PRINT"{GIU'}PUNTI{DES}"LS 

: rem 

204 

277 

FORZ = l90T0230STEP1 0 

: rem 

141 

278 

POKES,Z 

: rem 

1 69 

279 

FORF=lTO300 : NEXT:NEXT 

: rem 

1 01 

281 

POKES,0 

: rem 

1 21 

282 

FORF = lT02000 : NEXTF 

: rem 

91 

285 

POKEl98,0:GOTO4 5 

: rem 

1 68 

290 

RS=RS+1:DE=DE-50 : IFRS = 1 0THEN400 

: rem 

1 04 

295 

PRINTTAB(12);"BRAVO 1!!!" 

: rem 

53 
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300 

PRINTTAB(12); 

"PUNTI{DES}"RS 

: rem 

1 24 

301 

G0T0277 


: rem 

1 09 

350 

PRINTCHR?(14) 

"{CLR}{ 6 DES}{BLU}{RVS} 

SEMAFORO " 

: rem 

238 


355 PRINT"{BLK}{GIU’}E' UN GIOCO PER PROVA-RE I RIFLESSI. 

" :retn 26 

357 PRINT"IL GIOCATORE DI SIN.{ 2 DESjUSA IL TASTO 'A',QU 
EL-LO DI DESTRA USA IL{ 3 SPAZl}TASTO '='." :rem 86 

360 PRINT"SE L’ULTIMA LUCE AD{ 3 SPAZI}ACCENDERSI E' VERD 
E,ILPRIMO GIOCATORE CHE" :rem 215 

362 PRINT"PREME IL SUO TASTO{ 4 SPAZI}GUADAGNERÀ' UN PUNT 
0." :rem 89 

364 PRINT"SE L'ULTIMA LUCE E'{ 3 SPAZI}AZZURRA, IL GIOCAT 

ORE DI SIN. DEVE PREMERE" : rem 192 

366 PRINT"IL SUO TASTO, SE E'{ 3 SPAZl}VIOLA, LO DEVE FAR 

E ILGIOCATORE DI DESTRA." :rem 235 

367 PRINT"{GIU'}** PREMERE UN TASTO **"; : rem 35 

368 GETG$:IFG$ = ""THEN368 :rem 113 

371 PRINT"{CLR}{BLU}{ 6 DES}{RVS} SEMAFORO {BLK}" 

:rem 202 

373 PRINT"{GIU'}SE UN GIOCATORE PREME IL SUO TASTO QUANDO 



E'LA VOLTA DELL'AVVERSA-"; 

: rem 

1 1 8 

374 

PRINT"RIO, PERDE 3 PUNTI." 

: rem 

230 

375 

PRINT"IL PRIMO CONCORRENTE{ 2 SPAZI}CHE 

RAGGIUNGE 

I 1 


0{ 4 SPAZI}PUNTI VINCE. 

: rem 

1 1 4 

378 

PRINT"{GIU'}** PREMERE UN TASTO **"; 

: rem 

37 

379 

GETT$:IFT$=""THEN379 

: rem 

1 43 

380 

PRINTCHRS(142)"{CLR}":G0T045 

: rem 

196 

400 

IFRS=10THENGOSUB250 

: rem 

1 72 

405 

PRINT"{RVS}HAI VINTO{OFF}" 

: rem 

1 1 2 

41 0 

IFRS=10THENGOSUB250 

: rem 

1 73 

415 

PRINT"{GIU'}BRAVISSIMO" 

: rem 

1 23 

420 

FORF=lT04:FORG = l30TO2 50 :POKES,G:NEXT 

: rem 

35 

425 

FORG=250TOl30STEP-1:POKES,G:NEXT:NEXT:POKES,0 

: rem 

1 67 

430 

PRINT"{GIU'}{RVS}{ 2 DES}GIOCHI ANCORA(S/N){OFF}" 

: rem 

223 

435 

GETG$:IFG$="S"THENl5 

: rem 

1 32 

440 

IFG$ = "N"THENPRINTCHR$(142)"{CLR}": END 

: rem 

238 

445 

G0T0435 

: rem 

1 1 4 

500 

POKES,231:FORF=lTO300:NEXT:POKES,0 

: rem 

1 1 7 

51 0 

FORF=1TODE:NEXT: RETURN 

: rem 

240 


510 POKEV+13,PEEK(V+13)+1 :HT=0:F 
ORI = 1T03:IF(COAND2 TI)=2 tITHE 
NHT=I 

525 SG=SC+50:GOSUB1000 :POKEV+21 
PEEK(V+21)AND(127-2THT) 

550 POKEV+13,PEEK(V+13)-1 :HT=0:F 
0RI=4T06:IF(C0AND2tI)=2tITHE 
NHT=I 


ERRATA CORRIGE 

Nel programma SPIONAGGIO per 
C64, pubblicato sul n. 16, vanno mo¬ 
dificate le seguenti linee: 
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Insegne luminose 



3K ram 


Con questo programmò il vostro 
computer farà scorrere , per tutto il 
tempo che vorrete, un'insegna lu¬ 
minosa sullo schermo del televiso¬ 
re. 

Potete utilizzare l’insegna a scopo 
pubblicitario, nella vetrina di un 
negozio, o semplicemente a casa 
vostra per divertire gli amici con 


messaggi spiritosi. La scritta appa¬ 
re sul video in caratteri normali o 
anche personalizzati, ed inoltre 
potete selezionare la velocità di 
scorrimento, il colore delle lettere, 
quello dello sfondo e quello del 
bordo. Il messaggio può avere una 
lunghezza massima di 50 righe di 
20 caratteri. 


1 REM INSEGNE LUMINOSE 

3 POKE52,2 8 :POKE56,2 8 :GOSUBl000 

4 FORX=7168T07679 :POKEX,PEEK(25600+X) :NEXT 

5 F$="{BLK}{WHT}{RED}{CYN}{PUR}{GRN}{BLU}{YEL}":DIMLN(50) 
:DIML$ (50) :TB$ = " {HOME} { 10 GIU'H 21 DES}" 

6 TD$ = " {HOME} { 10 GIU'H 2 DES} " : PK = 7922 

1 0 REM 

20 POKE36879,254:PRINT"{CLR}{GIU'}{BLK}VUOI USARE IL SET 
DI":PRINT"{GIU 1 }CARATTERI NORMALE O" 

21 PRINT"{GIU' }{BLK}QUELLO PERSONALI ZZATO?":PRINT" 

{ 2 GIU'H 2 SPAZI}(PREMI {RVS}N{OFF} OPPURE {RVS}P 
{OFF})" 

22 GETA$:IFA$=""THEN22 

2 3 IFA$ = "P"THENGOSUBl 000 :GOSUB8000: GOTO30 
24 IFA$ = "N"THENPOKE36869,240 : GOTO30 
26 GOTO20 

30 PRINT" {CLR} {GIU' } {BLK}VUOI VEDERE IL MENU" 

{GIU'}DEI COLORI?" 

31 PRINT"{ 2 GIU'H 2 SPAZI}(PREMI {RVS}S{OFF} OPPURE 

{rvs}n{off})" 

33 GETA$:IFA$=""THEN33 

34 IFA$="S"THENGOSUB2000:GOTOl00 

35 IFA$="N"THENl00 
50 GOTO30 
100 POKE36879,254 

110 PRINT"{CLR}{BLK}{ 3 SPAZI}INSEGNE LUMINOSE{ 2 GIU 

120 PRINT"QUESTO PROGRAMMA PER-{GIU'}" 

121 PRINT"METTE DI FAR SCORRERE{GIU'}" 

122 PRINT"INSEGNE SULLO SCHERMO." 

130 PRINT"DOPO AVER SCELTO l{GIU'}" 

131 PRINT"COLORI DI SFONDO/BORDO":PRINT"E DEI CARATTERI, 

IMPO-" :rem 120 


: rem 

1 38 

: rem 

68 

: rem 

98 

:DIMLN(50) 

: rem 

24 

: rem 

80 

: rem 

69 

RE IL SET 

: rem 

1 45 

NT" 

{RVS}P 

: rem 

231 

: rem 

235 

: rem 

242 

: rem 

47 

:'rem 

3 

PRINT" 

: rem 

76 

OPPURE 

: rem 

233 

: rem 

239 

: rem 

1 64 

: rem 

235 

: rem 

1 

: rem 

1 52 

2 GIU* 

}" 

: rem 

29 

: rem 

1 6 

: rem 

1 92 

: rem 

61 

: rem 

233 
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1 33 

PRINT"STA IL MESSAGGIO, CHE{GIU'}" 


: rem 

1 45 

1 34 

PRINT"NON DEVE SUPERARE 50{GIU'}" 


: rem 

85 

1 35 

PRINT"RIGHE DI 20 CARATTERI.{GIU'}":PRINT"{ 

4 SPAZI} 


PREMI UN TASTO{SU}" 


: rem 

237 

1 38 

GETA$:IFA$=""THENl 38 


: rem 

91 

1 40 

PRINT" {CLR} {GIU '} IMPOSTA IL COLORE DI{GIU'} 

" : rem 

30 

141 

PRINT"SFONDO/BORDO (8-255):{GIU'}" 


: rem 

1 1 4 

1 42 

INPUTC$:Cl=VAL(C$) 


: rem 

20 

1 43 

IFCl>2550RC1< 8THEN140 


: rem 

1 94 

1 45 

PRINT"{CLR}{GIU'}ORA IMPOSTA IL COLORE": 

PRINT"{GIU 

' } D 


EL TESTO (1-8):{GIU'}" 


: rem 

25 

1 47 

INPUTC$:C2=VAL(C$):IFC2<1ORC2>8THENl45 


: rem 

26 

1 60 

print"{clr}{giu ' Tricorda che il messag-" 


: rem 

98 

1 61 

PRINT"GIO NON DEVE ESSERE" 


: rem 

30 

1 62 

PRINT"{GIU'}PIU' LUNGO DI 50 RIGHE" 


: rem 

1 1 8 

1 63 

PRINT"DI 20 CARATTERI." 


: rem 

39 

1 64 

PRINT"{GIU'}DOPO AVER INTRODOTTO" 


: rem 

243 

1 65 

PRINT"{GIU'}L'ULTIMA RIGA DI TE-" 


: rem 

51 

1 66 

PRINT"{GIU'}STO, BATTI *RUN* E IL" 


: rem 

56 

1 67 

PRINT" {GIU' }MESSAGGIO SCORRERÀ"' 


: rem 

1 67 

1 68 

PRINT"{GIU'}SUL VIDEO.PRINT"{ 2 GIU'}{ 

4 

SPAZI}PREM 


I UN TASTO{SU}" 


: rem 

1 31 

1 69 

GETA$:IFA$ = ""THENl 69 


: rem 

99 

1 70 

PRINT"{CLR}{GIU'}LA VELOCITA' DI SCOR-": 

PRINT"{GIU 

' }R 


IMENTO DEL TESTO" 


: rem 

1 67 

1 72 

PRINT"{GIU'}PUO' VENIR AUMENTATA":PRINT" 

{GIU'}CON 

<Fl 


> E DIMINUITA" 


: rem 

1 45 

1 73 

PRINT"{GIU’}CON <F7>.PRINT"{ 3 GIU’}{ 

4 SPAZI}PREMI 


UN TASTO" 


: rem 

1 07 

1 75 

GETA$:IFA$ = ""THENl 75 


: rem 

93 

1 99 

FORLN=lTO50 


: rem 

1 54 

200 

PRINT"{CLR}{GIU'}BATTI LA RIGA N."LN:PRINT 

2 rem 

8 

201 

INPUTL$(LN) 


2 rem 

1 26 

205 

IFL$(LN)="*RUN*"THENLS = LN:GOTO30 0 


2 rem 

246 

206 

IFLEN(L$(LN) )>20THENPRINT"{GIU' }RIGA TROPPO 

LUNGA 



{GIU'}":GOTO201 


2 rem 

248 

207 

L$(LN)=L$(LN)+" " 


2 rem 

251 

21 0 

NEXT:LS=LN 


2 rem 

1 30 

300 

POKE36879,Cl:PRINTLEFT$(F$,C2):PRINT"{CLR}{ 

8 GIU* 

} 


{RVS}{ 22 SPAZI}" 


2 rem 

29 

301 

PRINT:PRINT:PRINT 


2 rem 

1 75 

304 

PRINT" {SU} {RVS}{ 22 SPAZl}":LN=0 


2 rem 

76 

305 

LN=LN+1:IFLN>LS-1THENLN=1 


2 rem 

58 

320 

FORQ=1TOLEN(L$(LN)) 


2 rem 

1 05 

325 

PRINTTB$MID$(L$(LN),Q,1) 


2 rem 

101 

330 

PRINTTD$CHR$(20):PRINTTB$" "CHR$(148) 


2 rem 

71 

331 

FORGG=1TOSP 


2 rem 

1 92 

333 

P=PEEK(197) 


2 rem 

61 

334 

IFP=39THENSP=SP+1 


2 rem 

48 

335 

IFP = 63THENSP = SP - 1 


2 rem 

48 

336 

IFP<1THENSP=255 


2 rem 

1 47 
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337 

IFP>255THENSP=1 

: rem 

1 50 

380 

NEXT:NEXT 

: rem 

83 

390 

GOTO305 

: rem 

1 09 

1 000 

PRINT" {CLR} { 11 GIU'H 4 DES} ATTENDI { 2 SPAZI }PREGO" 


: RETURN 

: rem 

244 

2000 

SC=2:SF=8 

: rem 

1 5 

2001 

PRINTLEFT$(F$,SC):PRINT"{CLR}{GIU'}{ 2 SPAZI}** 

MENU 


' COLORI **{GIU'POKE36879,SF 

: rem 

231 

2002 

PRINT"{GIU'{QUESTO E' IL COLORE"SC 

: rem 

226 

2003 

PRINT"SULLO SCHERMO"SF"{SIN}." 

: rem 

222 

2004 

PRINT"{GIU'}PREMI LA BARRA PER":PRINT"{GIU' 

{CAMBIARE 


I COLORI DI" 

: rem 

239 

2005 

PRINT"{GIU'}SFONDO/BORDO E I TASTIPRINT"NUMERICI P 


ER CAMBIARE" 

: rem 

1 72 

2006 

PRINT"{GIU 1 }IL COLORE DEL TESTOPRINT"{ 2 

GIU'}BAT 


TI * QUANDO FINISCI" 

: rem 

45 

2010 

GETA$:IFA$ = ""THEN201 0 

: rem 

1 69 

201 1 

IFA$=" "THENSF=SF+1:IFSF>255THENSF=8:GOTO2001 




: rem 

226 

201 2 

IFA$ = "*"THENRETURN 

: rem 

1 1 5 

2013 

IFA$<"1"ORA$ >" 8 "THEN2001 

: rem 

29 

201 5 

SC=VAL(A$):GOTO2001 

: rem 

1 06 

8000 

XX=0:A=0:POKE36869,255 

: rem 

1 4 

8005 

FORX=lT08:READA:IFA>255THENXX=0:GOTO8007 

: rem 

94 

8006 

POKEX+XX+717 5,A:NEXT:XX=XX+ 8 :GOTO 800 5 

: rem 

143 

8007 

FORX=1T08:READA:IFA>255THENRETURN 

: rem 

225 

8008 

POKEX+XX+7 5 51 ,A:NEXT:XX=XX +8 : GOTO8007 

: rem 

145 

8010 

DATAI 24,254,198,198,254,254,198,198,252,254 

,198, 

254, 


254,198,254,252 

: rem 

73 

801 1 

DATA2 54,254,1 92,1 92,1 92,224,254,254,252,254 

,198, 

198, 


198,230,254,252 

: rem 

51 

8012 

DATA254,254,1 9 2,2 52,2 52,1 92,254,254,254,254 

,192, 

252, 


252,192,192,192 

: rem 

39 

801 5 

DATA254,254,1 92,222,222,1 98,254,254,1 98,1 98 

,198, 

254, 


254,198,198,198 

: rem 

84 

801 7 

DATA60,60,24,24,24,24,60,60,1 24,1 24,24,2 4,24,24, 

1 20 , 


1 20 

: rem 

1 54 


8020 

8022 

8023 

8025 

8026 
8030 
8036 


DATAI 96,204,21 6,240,240,21 6,204,1 96,1 92,1 92,1 92,1 92, 
192,192,254,254 :rem 32 

DATA254,254,214,214,214,214,198,198,254,254,198,198, 

198.198.198.198 ;rem 82 

DATA2 54,254,198,1 98,1 98,230,254,2 54,2 54,254,1 98,2 54, 

254.192.192.192 :rem 68 

DATA254,254,198,198,206,206,255,255,62,126,224,192,1 

92.192.192.192 . rem 4 

DATA254,254,224,254,254,14,254,254,126,126,24,24,24, 

24,24,24 . rem 179 

DATAI 98,1 98,1 98,1 98,1 98,1 98,2 54,254,198,198,198,198, 
198,238,124,56 :rem 68 

DATAI 98,198,214,214,214,214,2 54,2 38,198,198,108,56,5 

6.108.198.198 :rem 231 
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8039 

8040 
8100 
8103 

8105 

8107 

81 08 

8109 

8200 


DATAI 98,1 98,230,254,1 26,1 4,1 4,1 4,2 54,2 54,6,1 2,24,48, 
1 26,254 : rem 147 

DATA255,255,255,255,255,255,255,255 :rem 250 

DATA300 : rem 118 

DATAI 24,254,1 98,1 98,1 98,1 98,254,1 24,56,56,24,24,24,2 
4,60,60 : rem 160 


DATA254,254,198,14,28,120,254,254,254,254,6,62,62,6, 

254.254 : rem 148 

DATAI 92,1 92,1 92,21 6,254,254,24,24,254,254,1 92,254,25 

4.6.254.254 :rem 97 

DATA254,254,1 92,254,254,230,254,254,254,254,1 98,6,6, 
6 ,6,6 : rem 56 

DATA2 54,254,1 98,254,254,1 98,254,254,254,254,1 98,254, 

254.6.254.254 :rem 224 

DATA300 : rem 119 


Fotoreporter 


CI6~-plus/4 

JoystK k 


È stata scoperta nelle fogne di una 
grande città americana una razza 
di formiche mutanti di dimensioni 
colossali. Il "Time" ti ha incaricato 
di effettuare un reportage fotogra¬ 
fando una formica e tu hai accetta¬ 
to, attirato dalle forti possibilità di 
guadagno. Ti sei quindi procurato 
una cartina della rete fognaria e un 
aiutante che dalla superficie loca¬ 
lizzerà le formiche per mezzo di 
un’apparecchiatura a raggi infra¬ 
rossi. 

Le fotografie riuscite della formica 
verranno pagate a seconda dell’in¬ 
quadratura effettuata: 75 dollari 
per un’istantanea della testa, 25 
per una laterale ed infine solo 10 
per una scadente foto da tergo. Se 
per caso dovessi dimenticarti di 
avanzare la pellicola, puoi vende 


re ie doppie esposizioni ad un 
giornale di provincia, che però te 
le pagherà solamente un dollaro 
l’una. La spesa del materiale è a 
tuo carico, perciò ogni foto spre¬ 
cata o non scattata ti costa 2 dolla¬ 
ri. 

Sullo schermo del CI 6 appare la 
mappa della rete fognaria, sempre 
diversa ogni volta che si gioca, con 
indicata la posizione del giocatore 
e quella della formica; viene mo¬ 
strato inoltre ciò che si vede nel 
mirino della macchina fotografica. 
Compaiono anche un contasecon¬ 
di, l'indicatore di effettuato avan¬ 
zamento pellicola e il contafoto¬ 
grammi. Il funzionamento del joy¬ 
stick (n. V è leggermente diverso 
da quello usuale: spinto verso l'al¬ 
to fa proseguire dritto il fotografo,- 
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verso il basso lo fa retrocedere, 
mentre a destra e sinistra lo fa ruo¬ 
tare di 90 gradi nelle rispettive di¬ 
rezioni. Il pulsante serve per scat¬ 
tare le foto ed infine il tasto Return 


fa avanzare la pellicola. Il gioco 
termina quando tutti i 24 fotogram¬ 
mi del rullino sono stati esposti, 
oppure quando il contasecondi in¬ 
dica che sono trascorsi 5 minuti. 


1 00 

DIMA%(5,6) ,B%(5,6) ,C% (5, 6 ) ,0% (5) ,Q%(4) ,M% (4) 

: I=RND( -T 


I):GOTO330 

: rem 

232 

1 1 0 

PRINTC$"{GIU'}"INT(TI/60):IFTI>TJGOTO670 

: rem 

97 

1 20 

Q=-2*(PEEK(T+0%(0))<M)-4*(PEEK(T+0%(0-1))<M) 

-(PEEK(T+ 


0% (0 + 1) )<M) 

: rem 

1 97 

1 30 

FORI=0TO5:X=I+S:FORJ=0TO6:A=A%( I, J):IFA=0GOTOl70 




: rem 

1 98 

1 40 

IFJ=OTHENIFPTHENIF(AANDQ)=(AANDV)THENJ=6:GOTOl70 




: rem 

76 

1 50 

Z=W*J+X:IFAANDQTHENPOKEZ,C%(I,J):GOTOl70 

: rem 

16 

1 60 

POKEZ,B%(I, J) 

: rem 

1 95 

1 70 

NEXT:NEXT:V=Q: RETURN 

: rem 

1 36 

1 80 

A=JOY(1) 

: rem 

139 

1 90 

IFA=OTHENRETURN 

: rem 

230 

200 

IFA=5THEN230 

: rem 

1 52 

201 

IFA=7THEN240 

: rem 

1 56 

202 

IFA=3THEN260 

: rem 

1 55 

203 

IFA=128THEN570 

: rem 

8 

209 

I=T+0%(0) 

: rem 

1 80 

21 0 

IFPEEK(I)=HTHENPOKET,H:T=I:POKET,G 

: rem 

208 

220 

RETURN 

: rem 

1 1 6 

230 

I=T-0%(0) : GOTO210 

: rem 

1 82 

240 

0 = 1 - 0 *( 0 < 4) 

: rem 

9 

250 

G=Q%(0):POKET,G:RETURN 

: rem 

1 23 

260 

0=0-1-4*(0=1) :G0T02 50 

: rem 

1 1 6 

270 

I=N+0%(L) :IFPEEK(I)=HTHENPOKEN,H:N=I: GOTO290 

: rem 

242 

280 

I=L:L=1+FNR(4):IFI=LGOTO280 

: rem 

1 00 

290 

POKEN,Q%(L) : RETURN 

: rem 

1 1 3 

300 

GOSUBl80:GETA$:IFA$=CHR$(13)THENPRINTC?"{ 2 

GIU 1 } 



{ 2 SPAZI } I" : PRINTB$" *-K":WD=l 

: rem 

1 24 

310 

GOSUBl 1 0 :GOSUB270 : IFT+0% (0) ONTHENONR+1 GOTO300 :R=0 

: P= 


0 :GOSUBl20 :P=1:GOTO300 

: rem 

1 58 

320 

R=1:B=L-0-4*(0>L):FORY=0TO2:Z=U+W*Y:FORX=OTOl:POKEX+Z 


r FNF(B):NEXT 

: rem 

1 32 

325 

NEXT:GOTO300 

: rem 

223 

330 

DEFFNR(X)=INT(RND(1)*X) :M=128 :DEFFNF(Z)=ASC(MID$(F$,1 


+ Z* 6 +Y* 2+X) ) 

: rem 

5 

350 

W=40:L=3072 : COLORO,2:COLOR4,7 

: rem 

1 82 

360 

FORI = 1TO18 :D$=D$ + " ":C$=C$ + "*":NEXT:A$=LEFT$(D$jW/2-6 


):B$=LEFT$(A$,W/2-10) 

: rem 

1 01 

370 

PRINT"{CLR}":PRINTA$"{BLK}U{ 8 *}I":PRINTA$" 

^{CYN} 



[<*>] {RVS}{ 6 SPAZI}{OFF}£lBLK}-" 

: rem 

33 

375 

PRINTA$"- {CYN} [<*>] {RVS}J 4 SPAZI}{OFF}£{BLK} -" 




: rem 

234 
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380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

51 0 

520 

530 

540 

545 

550 

560 

570 

580 

590 

620 

630 

640 

650 


PRINTA$"-{ 2 SPAZI} {CYN} { 4 SPAZI} {BLK}{ 2 SPAZl}.- 
[<Q>]+{ 2 *} +[<W>]": FORI = 1T03:PRINTA$"-{ 8 SPAZl}- 
[ <Q> 1 t<W>]T 2 SPAZI} [<Q>] [<W>] " :NEXT treni 91 

PRINTA$ " - { 2 SPAZI } (GRN} { 4 SPAZl}{BLK}{ 2 SPAZl}-^ 
[<Q>]+{ 2 *}+[<W>]":PRINTA$"- {GRN}{RVS}£{ 4 SPAZI} 
[<*>]TOFF}TBLK} : rem 210 

PRINTA$'MGRN}{RVS}£{ 6 SPAZI}[<*>]{OFF}{BLK}-":PRINT 
A$" J { 8 * } K" : PRINTB$" {RVS }U"C$" I^" treni 47 

FORI = 1 TO9 t PRINTB$ " {RVS }-_{BLK} "D$" -" I NEXT t PRINTB$ " 
{RVS}J"C$"K{OFF}"; s rem 145 

E=L+12*W+W/2-11 t S = L+3*W+W/2-4 tO = ltH=l60tGOSUB560tH = 32 
tU=S+2+2*W srem 62 

R%=S+1 0 + 2*W:O%(1)=-WtO%(2)=-l 1 0%(3) =Wt 0% ( 4)=1 1 0% (0)=1 
tO%(5)=-W srem 190 

Q%(1)=-W-WtQ%(2)=W-1tQ%(3)=W+1tQ%(4)=1-WtC$="{HOME}"+ 
B$ trem 11 


POREI,H t Z = 6 t FORY=FNR(3)T05 t A=1+0%(Y) tIFPEEK(A)<>160GO 
TO480 trem 53 

F = 0tG = 0tJ = 0t FORX=lT04 t F = F-(PEEK(A+Q%(X))=H) tIFPEEK(A+ 
0%(X))=HTHENG=G+1tJ=X-J trem 36 

NEXT tIFF< 4ANDG< 20R(G< 3ANDF<1)OR(G=2ANDABS(J)=2)THENZ = 
Y t Y =6 trem 143 

NEXTtIFZ<6THENI=I+0%(Z)tV=V+1tGOTO450 trem 67 

IFV< 95THENGOSUB560 t GOT04 50 trem 130 

FORI=0TO6tA%(0,I)=1tA%(5,I)=4tFORJ=0TO5tB%(J,I)=HtC%( 
J , I ) = 1 6 0 t NEXT t NEXT trem 121 

FORI = 1T04 t A%(1,1)=2 t A%(1,5)=2tNEXTtFORI=2T03tFORJ=2TO 
4 t A%(I,J)=2 t NEXT t NEXT trem 5 

B%(0,0)=95tB%(5,0)=105tB%(0,6)=233tB%(5,6)=223tP=ltL2 
=LOG(2)tTJ=l8000 trem 242 

C%(1,1)=95tC%(4,1)=105tC%(1,5)=233tC%(4,5)=223tFORZ=l 
T024tREADA trem 32 

F$=F$+CHR$(A+4 6 +M) t NEXT t Q%(1)=30tQ%(2)=60tQ%(3)=22tQ% 
(4)=62:GOSUB560 trem 154 

N=It FR=1 trem 178 

GOSUB280 tV=0 t F = 0 t G=Q%(O) tGOSUB560tT=11POKET,GtGOSUB66 
0tTI$="000000"tGOT0310 trem 4 

I =E+2+W+FNR ( 1 7) +W*FNR ( 9) tA=PEEK (I) tON- ( AOH) GOTO560tR 
ETURN trem 232 

ONWD+1GOTO630 tIFT+0%(O)<>NTHENA$ = "FOTO SPRECATA"tF=0t 
I=HtJ=0t G0T064 0 trem 185 

A$ = "CLICK"tB=L-0-4*(0>L)+1t F = B t M%(B)=M%(B)+1trem 87 

FORY=0TO2t Z = R%+W*YtFORX=OTOl tPOKEX+Z,FNF(B-l)-Mt NEXTt 
NEXT trem 208 

POKEN,HtGOSUB560 tN=ItGOTO650 trem 250 

A$ = "DOPPIA ESPOSIZIONE"tFR=FR+l*(FR>0) t DE=DE+1 tM%(F) = 
M%(F)— 1tF=0tI = 66 tJ = 16 trem 37 

FORY=0TO2 tZ=R%+W*YtFORX=OTOl :POKEX+Z,I+FNR(J) t NEXTtNE 
XT trem 124 

PRINTC$SPC(10-LEN(A$)/2)A$ tFORI = lTOl000 tNEXTtWD = 0 

trem 166 


16 



660 PRINTC$D$+" ":PRINT:PRINT:PRINTB$"{GIU'}"FR:PRINTB$" 

{ 3 SU}{ 3 SPAZI}":PRINTB$"{ 3 SPAZI}":FR=FR+1 

:rem 167 

665 IFFR<25THENRETURN :rem 122 

670 PRINT"{CLRjlL REPORTAGE E' FINITO":PRINT : rem 59 
675 PRINT"'TIME’ COMPRA LE FOTO PAGANDO":PRINT :rem 60 
680 I=M%(3) :A=I * 75 :PRINTI"PRIMI PIANI DEL CAPO A $75 L'UN 
0" :rem 37 

690 J=M%(2)+M%(4) :A=A+25*J:PRINTJ"PRIMI PIANI DEL TORACE 
A $25 L’UNO":I = I+J : rem 197 

700 J=M%(1) :A=A+J*10 :PRINTJ"PRIMI PIANI DELL'ADDOME A $10 
L’UNO":PRINT:J=24-I-J :rem 74 

710 PRINTDE"DOPPIE ESPOSIZIONI A $1 L'UNA":PRINT :rem 195 
715 PRINTJ"FOTO MANCATE: PERDI $2 L'UNA":A=A-J*2 : rem 16 
720 A=A+DE:PRINT:GU$=STR$(A):PRINT"TOTALE $"GU$:POKE239,0 
:I=TI :rem 49 

730 GETA$:IFA$=""ANDTI<I+2000GOT0730 :rem 67 

740 RUN:DATA27,39,39,27,61,69,39,39,35,47,,29,27,39,35,35 
,,,27,27,47,35,28,, :rem 78 



Quello che vi presentiamo è un 
semplice programma che vi con¬ 
sente di giocare a scacchi contro il 
vostro CI 6. Comunicate le vostre 
mosse al computer impostando le 
coordinate di partenza e di arrivo 
nel formato (X, Y). Sullo schermo i 
pezzi sono rappresentati dalle loro 
lettere iniziali, voi giocate col bian¬ 
co ed il CI6 col rosso. Data l'esigui¬ 
tà del programma, non potete na¬ 
turalmente aspettarvi di avere di 
fronte un avversario forte: se tutta¬ 
via siete degli scacchisti alle prime 

10 REM SCACCHI 

20 COLOR4,10,5:COLORO,10,5 

30 PRINT"{CLR}{GIU'}{GRN}{ 12 


armi, il divertimento è assicurato! 
Tenete tuttavia presente che il pro¬ 
gramma non prevede l'arrocco e le 
prese "en passant"; inoltre siate 
onesti, perché il computer accetta 
anche le mosse illegali, ed abbiate 
pazienza, perché il tempo d'attesa 
per ogni mossa può superare i due 
minuti. Il programma provvede a 
segnalare l'eventuale scacco mat¬ 
to,- per sospendere la partita batte¬ 
te 999,999 al posto delle coordina¬ 
te. 


:rem 51 
: rem 218 

SPAZI}ATTENDI PREGO" 

:rem 124 






40 KX=5:KY=8:DIMB%( 8 , 8 ) ,D%(6,8,2) ,P%( 6 ) ,A$( 6 ) :F0RY=lT08:F 


ORX=1T08 

: rem 

21 5 

50 

B%(X,Y)=0:IFY=lTHENREADB%(X,Y) 

: rem 

21 5 

60 

IFY= 8 THENB%(X,Y)=-B%(X,1) 

: rem 

94 

70 

IFY=2THENB%(X,Y)=-1 

: rem 

29 

80 

IFY=7THENB%(X,Y)=1 

: rem 

246 

90 

NEXT:NEXT 

: rem 

33 

1 00 

DATA-4,-2,-3,-5,-6,-3,-2,-4 

: rem 

228 

1 1 0 

FORX= 1 T06:P%(X)=2 :FORY=1T08:IFY<30RY=8THEND% (X,Y, 

2 ) =1 



: rem 

52 

1 20 

IFY>1ANDY<5THEND%(X,Y,1)=1 

: rem 

24 

1 30 

IFY>5THEND%(X,Y,1 )=-l 

: rem 

1 73 

1 40 

IFY> 3ANDY< 7THEND%(X,Y,2) =-l 

: rem 

76 

1 50 

NEXT: IFX02THEN1 90 

: rem 

1 07 

1 60 

FORY=lT04:READD%(X,Y,1),D%(X,Y,2): 

D%(X,Y+4,1)=-D% 

(X,Y 


,1):D%(X,Y+4 , 2)=D%(X,Y,2) 

: rem 

50 

1 70 

NEXT 

: rem 

215 

1 80 

DATA-2,1 ,-l ,2,1 ,2,2,1 

: rem 

205 

1 90 

IFX=1THENP%(X )=8 

: rem 

1 77 

200 

IFX>4THENP%(X) =1 

: rem 

1 66 

210 

NEXT:F0RX=1T06:READA$(X):NEXT 

: rem 

1 1 1 

220 

DATAP,C,A,T,D,R 

: rem 

72 

230 

PRINT"{CLR}"IGOTO620 

: rem 

4 

240 

XB = 0:YB=XB:DB=XB:CL=1 :BP=XB:X = 9:AX 

= KX:AY = KY : Fi $ = " 

" :GO 


SUB750: Fi$=F$ 

: rem 

82 

250 

FORY=1T08:FORX=lT08:TB=0:C=1:TY=0: 

TX=0:D = 0 : rem 

1 56 

260 

IFB%(X,Y)<1THEN600 

: rem 

238 

270 

P = B%(X,Y) : FORI = 1T08:DY=D%(P,I,2) :DX=D%(P,1,1) :AX= 

KX: A 


Y=KY:Cl=1 :PO = 0 

: rem 

24 

280 

IFX+DX<10RX+DX>80RY+DY<1ORY+DY>8THEN530 :rem 

25 

290 

IFP>2ANDP< 6THEN44 0 

: rem 

70 

300 

IFDY>-1ANDP=1THEN530 

: rem 

1 79 

310 

IFY>!ORP>lTHEN360 

: rem 

1 9 

320 

FORI!=5TOlSTEP-1 . 

: rem 

21 4 

330 

IFP%(Il)<2THENP%(Il)=P%(Il)+1 :B%(X 

, Y) =11 : Il =1 




: rem 

195 

340 

NEXT 

: rem 

21 4 

350 

GOTO530 

: rem 

1 05 

360 

IFDX< >0ANDB%(X+DX,Y+DY)>-lTHEN530 

: rem 

200 

370 

IFP= 6 THENKX=X : KY=Y:AX=X+DX:AY=Y+DY 

:GOSUB740:IFF$= 

11 1 II fp 


HEN530 

: rem 

41 

380 

IFDX=0ANDB% (X,Y+DY) O0THEN530 

: rem 

21 2 

390 

PO= 8 -P-B%(X+DX , Y+DY)*3 

: rem 

21 9 

400 

IFY< >70RDX< >OORB%(X,5)<>OORP>1THEN530 :rem 

247 

410 

IFF1$ = "1"THENGOSUB740 : IFF$=""THEN530 : rem 

54 

420 

IFFl$="1"ORRND(1)> . 3THENC1=2 

: rem 

42 

430 

GOTO530 

2 rem 

1 04 

440 

Xl =X:Yl=Y 

2 rem 

16 

450 

IFP=3ANDINT(1/2)*2<ITHEN530 

2 rem 

73 

460 

IFP=4ANDINT(1/2)*2=ITHEN530 

2 rem 

76 
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470 IFXl+DX<1ORXl+DX>80RY1+DY<1ORY1+DY> 8THENC1=C1-1 : GOTO5 



30 

: rem 

21 2 

480 

IFB%(Xl+DX,Yl+DY)>0THENC1=C1-1:GOTO530 

: rem 

220 

490 

PO= 8 -P+INT(RND(1)*3)-B%(Xl+DX,Yl+DY)*3 

: rem 

1 04 

500 

IFFl$="1"THENGOSUB740:IFF$=""THENPO=PO+50: 

GOTO570 




: rem 

1 84 

51 0 

IFB% (Xl +DX, Yl +DY) O0THEN530 

: rem 

28 

520 

Ci=Cl+1 :Xl=X1+DX:Yl=Y1+DY:GOTO470 

: rem 

201 

530 

IFPO=0THEN570 

: rem 

254 

540 

IFFl$="1"THENGOSUB740:IFF$=""THENPO=PO+50: 

GOTO570 




: rem 

1 88 

550 

IFFl$=""THENGOSUB740:IFF$="1"THENPO=0:GOTO570 




: rem 

1 90 

560 

IFPO>=TBTHENAX=X+DX*Cl:AY=Y+DY*C1:GOSUB740 

:IFF$=" 

1 "TH 


ENPO=PO-P*2 

: rem 

41 

570 

IFPO>TBTHENTB = PO:TX = X:TY=Y:D = I :C=C1 

: rem 

105 

580 

NEXT 

: rem- 

220 

590 

IFTB>BPORTB=BPAND(RND(1)>.90R(TY<YBANDRND(1)>.5))THEN 


BP=TB:XB=TX:YB=TY:CL=C:DB=D 

: rem 

1 78 

600 

NEXT:NEXT:P=B%(XB,YB):X1=XB+D%(P,DB,1)*CL: 

Yl=YB+D%(P, 


DB,2)*CL:IFP = 6THENKX=X1 :KY = Yl 

: rem 

40 

610 

AX=KX:AY=KY:B%(Xl,Yl)=B%(XB,YB):B%(XB,YB)= 

0:Q=1:GOSUB 


750 :Q =0 

: rem 

83 

620 

GOSUB840 

: rem 

1 80 

630 

IFF$ = "1"THENPRINT"{GIU'}SCACCO MATTO": END 

: rem 

151 

640 

PRINT"{GRN}{ 2 GIU'}INTRODUCI LA TUA MOSSA 

k " : INPUT 

II 


{GIU'}DA";X,Y:IFX=999THENEND 

: rem 

33 

650 

INPUT" A";XB,YB 

: rem 

76 

660 

IFB%(XB,YB)>0THENP%(B%(XB,YB))=P%(B%(XB,YB))-1 




: rem 

58 

670 

B% (XB,YB)=B%(X,Y) 

: rem 

1 36 

680 

B%(X,Y)=0 

: rem 

1 60 

690 

IFB%(XB,YB)<- 1ORYB< 8THEN720 

: rem 

89 


700 INPUT"PEZZO";A$: FORI 1=1T05:IFA$(Il)=A$THENB%(XB,YB)=- 
Il : rem 75 

710 NEXT : rem 215 

720 GOSUB840 :rem 181 

730 GOTO240 :rem 105 

740 PC=B%(X+DX*C1,Y+DY*C1):B%(X+DX*Cl,Y+DY*C1)=B%(X,Y):B% 
(X,Y)=0 : rem 115 

750 F$ = "":FORPl=1T06: FORI1=1T08:D1=D%(Pl,I1,1):D2=D%(Pl,I 
1 , 2 ):L =1 : rem 158 

760 IFAX+Dl*L<1ORAX+Dl*L>80RAY+D2*L<1ORAY+D2*L>8THEN800 

:rem 92 

770 IFPl=1ANDD2<1ANDQ=0THEN800 :rem 42 

780 IFB%(AX+Dl*L,AY+D2*L)=-PlTHENF$ = "1": GOTO810 :rem 180 

790 IFPl>2ANDPl<6ANDB%(AX+Dl*L,AY+D2*L)=0THENL=L+1:G0T076 
0 : rem 218 

800 NEXT:NEXT : rem 80 

810 IFX>8THEN830 : rem 192 
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820 B%(X,Y)=B%(X+DX*C1,Y+DY*Cl):B%(X+DX*Cl,Y+DY*C1)=PC 






: rem 

54 

830 

RETURN 



: rem 

1 23 

840 

PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

: rem 

21 1 

850 

PRINT"{CLR}{GIU'}{ 3 DES}{GRN}{ 

1 3 

SPAZI}12345678 



{GIU'}":FORY=8TOlSTEP-1 :PRINT"{ 

1 0 

SPAZI }{GRN} 



{ 3 DES}"Y; 



: rem 

1 73 

860 

FORX= 1 T08 : IFB% (X, Y) O0THEN890 



: rem 

254 

870 

IFINT( (X+Y)/2)* 2 = X+YTHENPRINT" " 

• • 
t # 

GOTO920 

: rem 

182 

880 

PRINT"{BLU}{RVS} {OFF}";:GOTO920 



: rem 

1 25 

890 

IFB% (X,Y) <OTHENPRINT" {WHT.}" ; :GOT091 0 

: rem 

1 26 

900 

PRINT"{RED}"; 



: rem 

1 93 

91 0 

PRINTA?(ABS(B%(X,Y))); 



: rem 

21 2 

920 

NEXT:PRINT:NEXT:RETURN 



: rem 

52 



Bit, 

la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più diffusa in Italia 

con tutta la competenza del 





Conati 

terza parte 



Eccoti la terza - ed ultima! - parte 
del fantastico gioco Adventure- 
like di Papersoft Commodore. Se 
sei uno dei pochi sfortunati che an¬ 
cora non lo sanno, il tuo settimana¬ 
le di software ha pubblicato sugli 
ultimi due numeri la prima e la se¬ 
conda parte del programma. Nel 
caso tu non riesca a trovare in edi¬ 
cola Papersoft Commodore n. 20 e 
21, spedisci il coupon di richiesta 
numeri arretrati. 

Se invece hai già digitato e salvato 
le prime due puntate di Conan, per 
prima cosa ti consigliamo di verifi¬ 
carle con Stop Bug, il programma 


che ti permette di digitare i listati 
senza errori. Per fare ciò carica in 
memoria Stop Bug ed attivalo, do¬ 
podiché carica il file comprenden¬ 
te le prime due parti di Conan e 
verifica, battendo Return su ogni 
linea, che i checksum coimcidano 
con quelli che pubblichiamo. Una 
volta eliminatigli errori, puoi inizia¬ 
re a battere l'ultima parte del lista¬ 
to. Quando avrai finito, salva il tut¬ 
to e poi... Run! Per le spiegazioni 
sul funzionamento di Conan ti ri¬ 
mandiamo all'articolo pubblicato 
sul numero 20. Buona avventura! 


Checksum delle prime due 
partì 


1 0 

: rem 

1 33 

20 

: rem 

35 

30 

: rem 

1 35 

40 

: rem 

53 

50 

: rem 

1 33 

60 

: rem 

1 07 

70 

: rem 

1 28 

90 

: rem 

1 30 

1 00 

: rem 

1 42 

1 1 0 

: rem 

77 

1 20 

: rem 

1 86 

1 30 

: rem 

26 

140 

: rem 

21 

1 50 

: rem 

1 58 

1 60 

: rem 

244 

1 63 

: rem 

106 

1 65 

: rem 

9 

1 70 

: rem 

209 

1 80 

: rem 

54 


1 90 

: rem 

7 

200 

: rem 

45 

205 

: rem 

94 

207 

: rem 

2 

21 0 

: rem 

1 92 

220 

: rem 

68 

230 

: rem 

48 

240 

: rem 

1 55 

250 

: rem 

109 

260 

: rem 

1 39 

270 

: rem 

42 

280 

: rem 

21 2 

290 

: rem 

1 86 

300 

: rem 

1 77 

31 0 

: rem 

1 72 

320 

: rem 

69 

330 

: rem 

192 

350 

: rem 

1 28 

360 

: rem 

207 


21 


370 

: rem 

1 50 

380 

: rem 

195 

400 

: rem 

1 93 

41 0 

: rem 

245 

420 

: rem 

222 

430 

: rem 

1 22 

440 

: rem 

105 

450 

: rem 

50 

455 

: rem 

1 1 9 

460 

: rem 

52 

465 

: rem 

113 

470 

: rem 

90 

475 

: rem 

225 

480 

: rem 

239 

485 

: rem 

74 

486 

: rem 

1 

490 

: rem 

255 

495 

: rem 

129 

500 

: rem 

226 







51 0 

: rem 

1 92 

550 

: rem 

21 3 

555 

: rem 

84 

560 

: rem 

84 

562 

: rem 

206 

1 000 

: rem 

77 

1 005 

: rem 

66 

1010 

: rem 

52 

1 020 

: rem 

1 20 

1030 

: rem 

24 

1040 

: rem 

1 54 

1 050 

: rem 

85 

1055 

: rem 

1 26 

1 060 

: rem 

76 

1 065 

: rem 

4 

1070 

: rem 

103 

1075 

: rem 

48 

1 080 

: rem 

21 9 

1 085 

: rem 

11 

1090 

: rem 

220 

1095 

: rem 

123 

2000 

: rem 

206 

201 0 

: rem 

76 

2020 

: rem 

108 

2030 

: rem 

1 71 

2040 

: rem 

1 59 

2050 

: rem 

221 

2060 

: rem 

68 

2070 

: rem 

202 

2080 

: rem 

2 

2090 

: rem 

75 

2093 

: rem 

77 

2095 

: rem 

4 

2097 

: rem 

43 

3000 

: rem 

1 85 

301 0 

: rem 

206 

3020 

: rem 

198 

3030 

: rem 

21 2 

3040 

: rem 

1 31 

3050 

: rem 

1 44 

3060 

: rem 

1 48 

3070 

: rem 

1 09 

3080 

: rem 

198 

3090 

: rem 

195 

4000 

: rem 

166 

401 0 

: rem 

1 69 


4020 

: rem 

71 

4070 

: rem 

48 

4080 

: rem 

221 

4085 

: rem 

21 9 

4090 

: rem 

66 

41 00 

: rem 

1 71 

5000 

: rem 

227 

501 0 

: rem 

240 

5020 

: rem 

22 

5030 

: rem 

1 55 

5035 

: rem 

194 

5040 

: rem 

113 

5050 

: rem 

204 

5060 

: rem 

1 22 

5080 

: rem 

208 

6000 

: rem 

244 

601 0 

: rem 

21 

6020 

z rem 

1 5 

6030 

: rem 

100 

6040 

: rem 

11 2 

6050 

: rem 

10 

6080 

: rem 

82 

6085 

: rem 

92 

6090 

: rem 

1 61 

7000 

: rem 

240 

7080 

: rem 

85 

7090 

: rem 

1 41 

8000 

: rem 

78 

8010 

: rem 

25 

8020 

: rem 

95 

8030 

z rem 

199 

8040 

: rem 

1 69 

8050 

: rem 

1 30 

8060 

: rem 

62 

8070 

: rem 

93 

8080 

: rem 

55 

8090 

: rem 

1 29 

9000 

: rem 

230 

9030 

: rem 

208 

9040 

: rem 

69 

9045 

: rem 

69 

9050 

: rem 

1 22 

9060 

: rem 

60 

9070 

: rem 

91 

9080 

z rem 

193 

9090 

z rem 

1 84 


1 0000 

2 rem 

92 

1 0010 

z rem 

1 1 0 

1 0020 

2 rem 

74 

1 0030 

z rem 

1 69 

1 0040 

z rem 

1 96 

1 0050 

2 rem 

1 93 

1 01 50 

2 rem 

21 6 

10160 

2 rem 

78 

1 01 70 

2 rem 

94 

101 80 

2 rem 

81 

1 01 90 

2 rem 

141 

1 0200 

2 rem 

1 77 

1 021 0 

2 rem 

240 

1 0220 

2 rem 

68 

1 0230 

2 rem 

1 23 

1 0240 

2 rem 

1 01 

1 0250 

2 rem 

1 40 

1 0270 

2 rem 

21 3 

1 0380 

2 rem 

231 

10390 

2 rem 

64 

1 0400 

2 rem 

1 70 

1 0410 

2 rem 

168 

1 0420 

2 rem 

1 88 

1 0430 

2 rem 

1 97 

1 0490 

2 rem 

75 

1 0500 

2 rem 

1 83 

1 051 0 

2 rem 

98 

1 0520 

2 rem 

236 

1 0530 

2 rem 

1 22 

1 0540 

2 rem 

56 

1 0550 

2 rem 

1 37 

1 0560 

2 rem 

247 

1 0570 

2 rem 

236 

1 0580 

2 rem 

38 

1 0590 

2 rem 

89 

1 0600 

2 rem 

1 62 

1 0610 

2 rem 

200 

1 0620 

2 rem 

224 

10630 

2 rem 

252 

1 0640 

2 rem 

96 

1 0650 

2 rem 

145 

1 0660 

2 rem 

1 53 

1 0700 

2 rem 

84 

1071 0 

2 rem 

84 

1 0720 

2 rem 

220 

1 0730 

2 rem 

35 
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1 0740 

: rem 

125 

1 1 270 

: rei 

1 0750 

: rem 

1 86 

1 1 280 

: rei 

1 0760 

: rem 

1 85 

1 1 31 0 

: rei 

1 0770 

: rem 

57 

1 1 320 

: rei 

1 0780 

: rem 

237 

11 330 

: rei 

1 0790 

: rem 

1 76 

1 1 340 

: rei 

1 0800 

: rem 

236 

11 350 

: rei 

1 081 0 

: rem 

141 

1 1 360 

: rei 

1 0820 

: rem 

1 35 

11 370 

: rei 

1 0830 

: rem 

1 47 

1 1 380 

: rei 

1 0840 

: rem 

101 

1 1 390 

: rei 

1 0850 

: rem 

1 48 

1 1 400 

: rei 

10860 

: rem 

91 

11410 

: rei 

1 0870 

: rem 

200 

1 1 420 

: rei 

1 0880 

: rem 

1 50 

1 1430 

: rei 

1 0890 

: rem 

1 38 

1 1 435 

: rei 

1 0895 

: rem 

163 

1 1 440 

: rei 

1 0900 

: rem 

1 31 

1 1 445 

: rei 

1 091 0 

: rem 

1 41 

1 1 450 

: rei 

1 0920 

: rem 

44 

1 1 455 

: rei 

1 1 000 

: rem 

15 

1 1 460 

: rei 

11010 

: rem 

27 

1 1 465 

: rei 

11015 

: rem 

164 

1 1 470 

: rei 

1 1020 

: rem 

234 

1 1 475 

: rei 

1 1030 

: rem 

2 

1 1 480 

: rei 

1 1 040 

: rem 

1 63 

1 1 485 

: re: 

1 1 050 

: rem 

232 

1 1 490 

: rei 

1 1 060 

: rem 

11 0 

1 1 495 

: re: 

1 1 070 

: rem 

11 9 

1 1 500 

: re: 

1 1 080 

: rem 

1 58 

1 1 505 

: re: 

1 1090 

: rem 

87 

11510 

: re 

11100 

: rem 

105 

1 1 520 

: re: 

11120 

: rem 

164 

1 5000 

: re: 

11130 

: rem 

1 41 

1 5010 

: re 

11150 

: rem 

1 1 8 

1 51 1 0 

: re 

11160 

: rem 

75 

1 51 20 

: re 

11170 

: rem 

109 

1 51 30 

: re 

1 1 1 80 

: rem 

1 43 

1 51 40 

: re 

11190 

: rem 

4 

1 51 50 

: re 

1 1 200 

: rem 

1 38 

1 51 60 

: re 

1 1 21 0 

: rem 

1 27 

1 51 70 

: re 

1 1 220 

: rem 

52 

1 51 80 

: re 

1 1 230 

: rem 

88 

1 51 90 

: re 

1 1 240 

: rem 

1 72 

1 5200 

: re 

1 1250 

: rem 

1 53 

1 5210 

: re 

1 1 260 

: rem 

76 

1 5220 

: re 

23 


1 04 

1 5230 

: rem 

1 23 

1 81 

1 5240 

: rem 

1 85 

98 

1 5250 

: rem 

1 05 

1 78 

1 5260 

: rem 

1 04 

1 39 

1 5270 

: rem 

239 

21 9 

1 5280 

: rem 

244 

245 

1 5290 

: rem 

255 

21 3 

1 5300 

: rem 

1 78 

1 49 

1 531 0 

: rem 

236 

1 22 

1 5320 

: rem 

1 94 

1 1 8 

1 5330 

: rem 

253 

1 37 

1 5340 

: rem 

1 77 

94 

1 5400 

: rem 

117 

181 

15410 

: rem 

162 

30 

1 5420 

: rem 

108 

91 

1 5430 

: rem 

69 

1 21 

1 5440 

: rem 

40 

1 21 

20000 

: rem 

1 33 

75 

2001 0 

: rem 

241 

48 

20020 

: rem 

1 88 

74 

20030 

: rem 

167 

1 38 

20040 

: rem 

21 9 

83 

20050 

: rem 

201 

1 1 2 

20060 

: rem 

105 

240 

20070 

: rem 

87 

90 

20090 

: rem 

255 

63 

20140 

: rem 

52 

84 

201 50 

: rem 

1 52 

237 

20160 

: rem 

21 4 

46 

201 70 

: rem 

60 

25 

201 80 

: rem 

75 

223 

201 90 

: rem 

73 

192 

20200 

: rem 

240 

1 44 

2021 0 

: rem 

99 

1 22 

2021 5 

: rem 

1 44 

1 74 

20220 

: rem 

11 7 

77 

20230 

: rem 

1 99 

59 

20240 

: rem 

149 

246 

20250 

: rem 

1 2 

253 

20260 

: rem 

11 0 

1 1 3 

20270 

: rem 

68 

101 

20280 

: rem 

200 

55 

20285 

: rem 

235 

53 

20290 

: rem 

1 69 

203 

20300 

: rem 

243 

239 

2031 0 

: rem 

98 



20320 

: rem 

102 

2501 0 

: rem 

143 

27080 

: rem 

135 

20330 

: rem 

56 

25020 

: rem 

207 

27090 

: rem 

1 81 

20340 

: rem 

1 54 

25030 

: rem 

87 

27100 

: rem 

21 8 

20350 

: rem 

191 

25040 

: rem 

103 

271 1 0 

: rem 

162 

20360 

: rem 

126 

25050 

: rem 

43 

271 20 

: rem 

31 

20370 

: rem 

90 

25060 

: rem 

105 

271 30 

: rem 

196 

20380 

: rem 

56 

25070 

: rem 

97 

271 40 

: rem 

69 

20390 

: rem 

74 

25080 

: rem 

91 

271 50 

: rem 

67 

20400 

: rem 

20 

25085 

: rem 

1 34 

271 60 

: rem 

1 00 

2041 0 

: rem 

83 

25090 

: rem 

83 

271 70 

: rem 

72 

20420 

: rem 

85 

251 00 

: rem 

1 37 

271 80 

: rem 

1 1 1 

20430 

: rem 

11 5 

251 1 0 

: rem 

65 

271 90 

: rem 

39 

20435 

: rem 

161 

251 20 

: rem 

202 

27200 

: rem 

60 

20440 

: rem 

253 

251 30 

: rem 

32 

2721 0 

: rem 

20 

20445 

: rem 

52 

251 40 

: rem 

1 57 

27220 

: rem 

0 

20450 

: rem 

224 

251 50 

: rem 

99 

27230 

: rem 

1 1 5 

20453 

: rem 

1 53 

251 60 

: rem 

90 

27250 

: rem 

224 

20455 

: rem 

135 

25500 

: rem 

238 

27260 

: rem 

254 

20457 

: rem 

220 

2551 0 

: rem 

29 

27270 

: rem 

62 

20460 

: rem 

238 

25520 

: rem 

101 

27280 

: rem 

167 

20470 

: rem 

1 72 

25530 

: rem 

1 85 

27290 

: rem 

242 

20480 

: rem 

228 

27000 

: rem 

173 

27300 

: rem 

96 

21 000 

: rem 

1 57 

2701 0 

: rem 

47 

2731 0 

: rem 

248 

21 010 

: rem 

191 

27020 

: rem 

1 8 

27320 

: rem 

222 

21 020 

: rem 

63 

27030 

: rem 

220 

28999 

: rem 

236 

21 030 

: rem 

46 

27050 

: rem 

204 




25000 

: rem 

231 

27060 

: rem 

64 

1 



Terza Parte 








29000 

REM -ATTESA- 





: rem 

251 

29005 

PRINT" {HOME}*' 





: rem 

228 

2901 0 

FORT=lT021:PRINT"{GIU 

' }"; :NEXT:PRINTSPC(6)"PER 

CONT 


INUARE 

PREMI 

UN TASTO 

II 



: rem 

1 25 

29020 

GET AT$ 

:IFAT$ 

=""THEN29020 



: rem 

197 

29030 

PRINT"{CLR}": 

RETURN 




: rem 

1 24 

29500 

REM -MORTE- 





: rem 

1 97 

2951 0 

POKEWY f 

0:POKEYW,0:PRINT"{CLR}{SU}{WHT}NELLA SELVAGG 


IA CIMERIA SOLO I PIU 

» H • 

9 



: rem 

180 

29520 

PRINT"FORTI{GIU'}";SPC(14) 

SOPRAVVIVONO" 

:GOSUB3067 


0 






2 rem 

52 

29530 

PRINTSPC(9)"{ 

3 GIU'}TU NON 

ERI 

TRA QUESTI !":PRINTS 


PC(13)" 

{GIU'}{RED}RIPOSA IN 

PACE 

II 

2 rem 

31 

29540 

GOSUB29000:GOT025000 




2 rem 

233 

29550 

REM -OGGETTI 

RITROVATI- 



2 rem 

26 

29560 

PRINT"{CLR}{BLU}NELLA 

TERRA 

DI CIMERIA VALE LA 

LEGG 


E DELPIU'FORTE!" 




2 rem 

1 58 

29570 

PRINT"A 

COLUI 

CHE VINCE SPETTANO 

GLI OGGETTI 



{ 2 SPAZI}DEL 

PERDENTE !" 



2 rem 

1 32 


24 



29580 

29590 

29600 
2961 0 

29620 

29630 

29640 

29650 

29655 

29660 

29990 

29991 
30000 
3001 0 


30020 

30050 

30060 

30070 


30080 

30090 


301 00 


301 1 0 


301 20 


301 30 
301 40 


PRINTCO$ ; " , FRUGANDO TROVI.{GIU' }":GOSU 

B29990:PRINT"{GRN}-{RVS}"; :rem 106 

S=INT(RND(1)*(200+FT)):IFS>FTTHENPRINT"NIENTE!":GOS 
UB29000:RETURN :rem 180 

W=INT(RND(1)*15)+1 :T=INT(RND (1)*20)+2 :rem 121 

IFW=1THENPRINT"UNO SCUDO PER AUMENTARE LA TUA FORZA 
":FO=FO+10 :rem 117 

IFW=2THENPRINT"UNA pozione che dona nuova FORZA”:FO 
=FO+l5 :rem 143 


IFW=3THENPRINT"UNA SPADA PER AUMENTARE L'ABILITA'": 
AB=AB+10 : rem 201 

IFW=40RW=5THENPRINT"UN TALISMANO CHE DONA FORTUNA": 
FT=FT+5 :rem 45 

IFW=60RW=70RW=8THENPRINT"UN AMULETO PORTAFORTUNA":F 
T=FT+3 :rem 160 

IFW>8THENPRINT"UN SACCHETTO CON ";T;"{SIN} ZECCHINI 
D'ORO":ZE=ZE+T :rem 15 

GOSUB29000: RETURN :rem 156 

REM -PAUSA- : rem 197 

FORY=OTOl100:NEXT:RETURN :rem 179 

REM -GRAFICA SPADA- :rem 135 

PRINTSPC(10)"{GIU'}{BLK}Q{RVS}{ 3 SPAZl}{OFF} 

{ 3 SIN}{SU}[< 2 @>]{ 2 SIN}{ 2 GIU'}[< 2 T>]{SU} 
{DES}{SIN}{SU}{RVS}I{SIN}{SU}{OFF}Z{RVS}{SIN} 

{ 3 GIU'}l{OFF}{SIN}{GIU'}Z{ 2 SU}JrVS}{YEL} 

{ 12 SPAZI}[<*>]{OFF} : rem 252 

RETURN : rem 213 

REM -GRAFICA MONTAGNE- . :rem 124 

PRINT"{ 2 HOME}":POKEYW,0 :POKEWY,6 :rem 224 

PRINTSPC(18)"{WHT}{RVS}£[<*>]{GIU'}{ 2 SIN} 

{ 2 SPAZI}[<*>]{GIU'}{ 4 SIN}£{ 3 SPAZI}[<*>]{GIU'} 
{ 6 SIN}£{ 5 SPAZI}" : rem 169 

PRINTSPC(16)"{WHT}{RVS}{ 6 SPAZl}{ 6 DES}[<5>]£ 
[<*>]" : rem 79 

PRINTSPC(9)"{RVS}[<4>}£ { 4 DES}{WHT}£{ 6 SPAZI} 
[<*>]{ 4 DES}[<5>]£{ 3 SPAZI}{DES}£{ 2 SPAZI}[<*>]" 

:rem 234 

PRINTSPC(8)"{RVS}[<4>]£{ 2 SPAZI}[<*>]{ 2 DES}{WHT} 
£{ 8 SPAZI}{ 2 DES}[<5>]£{ 5 SPAZl}{DES}{ 4 SPAZI} 

" :rem 229 

PRINT"{ 6 DES}{RVS}[<4>]£{ 5 SPAZI}{ 2 DES}{WHT} 

{ 9 SPAZI}[<*>] [<5>] { 7 SPAZI} [<*>]{ 4 SPAZI}" 

:rem 91 


PRINT"{ 5 DES}{RVS}[<4>]£{ 6 SPAZI}[<*>]{WHT}£ 

{ 10 SPAZI}[<5>]{ 12 SPAZI}{ 2 DES}[<4>]{ 2 SPAZI} 

» : rem 160 

PRINT"{SU}{RVS}{ 4 DES}£{ 9 SPAZI}{WHT}{ 11 SPAZI} 
[<5>]{ 12 SPAZI}[<4>]£{ 2 SPAZI}" :rem 101 

PRINT"{RVS}[<4>j{SU}{ 3 DES}{ 11 SPAZI}{WHT} 

{ 12 SPAZI}[<5>]{ 11 SPAZI}[<4>]{ 3 SPAZI}" 

:rem 142 


25 




301 50 PRINT"{SU}{RVS} [<4>] { 2 DES}£{ 11 SPAZl}{WHT} 



{ 12 SPAZI}[<5>] { 11 SPAZI} [<4>] { 

3 SPAZI}" 




: rem 

27 

30160 

RETURN 

: rem 

21 8 

301 70 

POKEYW,5:POKEWY,6:GOSUB27000 

: rem 

105 

301 80 

PRINT"{WHT}{CLR}{HOME}{GIU'}LA TUA 

SITUAZIONE E 

'LA 


SEGUENTE.{ 2 GIU'}" 

: rem 

1 08 


30190 PRINT"{BLK}FORZA FISICA_";FO;"{ 3 DES}ZECCHINI.. 

• •";ZE : rem 204 

30200 PRINT"{ 2 GIU'}ABILITA’IN ARMI.";AB;"{ 3 DES}FORTUN 

A .";FT :rem 97 

3021 0 PRINT"{ 3 GIU'}E POSSIEDI...{GIU'}{YEL}J = 0 

:rem 201 

30220 IFAS=1THENPRINT"UN'ASCIA INCANTATA;J=1 :rem 174 
30230 IFMZ=1THENPRINT"UNA MAZZA FERRATA;";:J=1 :rem 112 
30240 IFSP=1THENPRINT"UNA SPADA D'ARGENTOJ=1 : rem 201 
30250 IFPL=1THENPRINT"UNA SPADA DI PLATINO;";:J=1 

:rem 236 

30260 IFSC=1THENPRINT"UNO SCUDO D’ORO;";:J=1 :rem 193 

30280 IFJ = 0THENPRINT”{ 3 DES{ANCORA NULLA!”; : rem 38 

30290 PRINT"{GIU'}” :rem 224 

30300 IFFO=90THENPRINT"{BLK} MAX DI FORZA "; : rem 128 

30310 IFAB=75THENPRINT"{BLK} MAX DI ABILITA' "; :rem 13 

30480 GOSUB29000 : RETURN :rem 148 

30490 REM -PRIMA SCELTA- : rem 115 

30500 POKEYW,5 : PRINT"{YEL}{ 2 GIU'}VUOIPRINT"{GIU'}1) 
GUARDARE LA TUA SITUAZIONE" ; rem 195 

3051 0 PRINT"2)RAGGIUNGERE LA CITTA'DI TYRO" : rem 89 

30520 PRINT"3)PROSEGUIRE PER LA MONTAGNA LUMINOSA" 


:rem 93 

30530 PRINT"4)VISITARE LA CONTRADA DI ARYA" :rem 35 

30540 PRINT"5)ANDARE ALLA TORRE MAGICA" :rem 30 

30550 PRINT"6)VEDERE LA MAPPA DELLA CIMERIA" :rem 64 

30560 PRINT"{ 4 GIU'}{BLK}RISPONDI CON UN NUMERO E PREMI 
RETURN":INPUT N ;rem 30 

30565 IFNOl ANDN06THEN30590 :r em 140 

30570 IFN=1THENGOSUB30170 :rem 244 

30575 IFN=6THENGOSUB30900 :rem 255 

30580 GOT030500 -rem 49 

30590 IFN03ANDN05THEN30650 jrem 136 

30600 IFFO>60THENPRINT"{CLR}{BLK}PENSO ANCH'IO CHE SIA TE 
MPO CHE TU PARTA"IGOSUB30000 :rem 18 

30610 IFFO<60THENPRINT"{CLR}{BLK}{GIU'{RIPENSACI ";CO$;"! 

SEI ANCORA MOLTO DEBOLE!'':GOSUB30670 :rem 201 

30620 PRINT"{YEL}{RVS}{ 4 GIU'}{ 3 DES}SEI PROPRIO DECISO 



A PARTIRE?(Y/N)" 

: rem 

1 52 

30630 

GETQ$: IFQ$ = ""THEN3 0 630 

: rem 

59 

30640 

IFQ$ = "N"THEN30 500 

: rem 

247 

30645 

IFQ$<>"Y"THEN30620 

: rem 

71 

30650 

ONNGOTOl,1000,20000,10000,15000 

: rem 

1 57 

30655 

GOTO 30500 

: rem 

52 
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30670 

30675 

30680 


30690 

30700 


3071 0 
30720 
30730 
30740 


30750 


30760 

30770 

30780 

30785 

30790 

30795 

30800 

3081 0 

30820 

30830 

30840 

30850 

30860 

30870 
30900 
3091 0 
3091 5 

30920 


30923 


REM -TESCHIO- :rem 77 

PRINTSPC(15)"{WHT}{RVS}{ 3 GIU'}£{ 8 SPAZI}[<*>]":P 
RINTSPC ( 1 5) " {RVS} { 10 SPAZI}" :renv 255 

PRINTSPC(15)"{RVS}{ 2 SPAZI}{BLK}{ 2 SPAZI}{WHT} 

{ 2 SPAZI}{BLK}{ 2 SPAZl}{WHT}{ 2 SPAZI}":PRINTSPC( 
15)"{RVS}{ 2 SPAZI}{BLK}{ 2 SPAZl}{WHT}{ 2 SPAZI} 

{BLK}{ 2 SPAZI}{WHT}{ 2 SPAZI}" :rem 143 

PRINTSPC(15)"{RVS}{ 10 SPAZI}{GIU'}{ 10 SIN} 

{ 4 SPAZI}NM{ 4 SPAZI}" :rem 80 

PRINTSPC(15)"{RVS}{DES}{ 8 SPAZI}":PRINTSPC(15)" 

{ 2 DES}[< 7 H>]{ 2 SIN}{GIU'}{ 5 SIN}{ 6 L}[<G>]" 

:rem 46 

RETURN : rem 219 

REM -PAESAGGIO- :rem 202 

POKEYW,6 :POKEWY,1 :PRINT"{CLR}" :rem 82 

PRINTSPC(7)"{ 6 GIU'}[<1>1{RVS}£{ 8 SPAZI}[<*>]"SPC 
(11)"{BLK}£{ 11 SPAZI}{SU}{ 3 SIN}£{ 2 SPAZI}" 

:rem 229 

PRINT"{SU}{OFF}{DES}{GRN}Q{ 2 DES}{ 2 Q}{SU} 

{ 4 DES}{ 5 Q}{ 5 DES}{GIU ' } { 2 Q}{DEST{ 4 Q} 

{ 3 DES}{SU}TDES}Q{DES}Q{GIU'}" :rem 111 

FORT=lTO240:PRINT"{RVS}TGRN} ";:NEXT :rem 209 


RETURN 


: rem 

225 

REM -CASUALITÀ’D’INCONTRO- 


: rem 

21 3 

B=0:A=0:AV=0:POKE532 81 , 1 :NO=0 


: rem 

233 

B=B+1 :A=INT(RND(1)*(FT+50) ) 


: rem 

31 

IFB=PE/2THEN PRINT"{CLR}{YEL}CORAGGIO 

SEI 

A META 1 ST 

RADA! " 


: rem 

21 6 

IFB=INT(PE/1.5)THENPRINT"{YEL}{CLR}MANCA 

ORMAI 

UN T 

ERZO DI PERCORSO!" 


: rem 

248 

IFB=PE-1THENPRINT"{YEL}{CLRjORMAI SEI 

ARRIVATO! 

11 



: rem 

16 

IFB=PETHENRETURN 


: rem 

1 75 

IFA>FTTHENAV=AV+1 


: rem 

1 56 

IFAV<DI+1ANDA>FTTHENGOSUB40000 


: rem 

21 7 

PRINT"{GIU'}{RED}AVANTI.SEI ANCORA VIVO!" 

:PRINT 

NON 

C'E'NESSUNO IN VISTA!FO=FO+2 


: rem 

29 

PRINT"GUADAGNI IN FORZA(2),":PRINT"MA 

PERDI IN 

AB IL 

ITA'(1)":AB=AB-1 


: rem 

248 

GOSUB29000:GOTO30790 


: rem 

243 

REM -MAPPA- 


: rem 

1 69 

PRINT"{CLR}":POKEYW, 13 :POKEWY,0 


: rem 

127 

PRINTSPC(6)"{WHT}{RVS}ECCO LA TERRA DI 

CIMERIA: 

II 



: rem 

61 


PRINTSPC(4)"{RVS}{GIU'}{WHT}£[<*>]{ 2 SIN}{GIU'} 

{ 2 SPAZI}[<*>]{GIU'}{ 4 SINT£{ 3 SPAZI}[<*>] 

{ 2 GIU'}{ 7 SIN}[<5>]MONTAGNA{GIU'}{ 8 SIN}LUMINOS 
A" :rem 220 

PRINT"{GIU'}{OFF}{BLU}{ 2 DES}UI{GIU'}{ 3 SINjUKJI 
{GIU'}{ 4 SIN}JI{DES}JI{GIU'}{ 5 SIN}UK{ 2 DES}JI 
{GIU'H 6 SIN}bJ 4 DESTJI" : rem 102 


27 



30925 PRINT"{DES}JI{ 3 DES }UK{GIU'}{ 6 SIN } JI{DES }UK 

{GIU'H 4 SIN}JCK{GIU" r I{ 5 SIN} {RVS}LAGO DI{GIU'} 

{ 7 SIN}{ 2 SPAZI}OZ{ 3 SPAZI}" : rem 80 

30927 PRINT"{HOME}";SPC (20);"{ 3 GIU 1 }[<1>] {RVS}[<J>] 

{BLK} [<U>] [<1>] [<L>] {GIU 1 }{ 5 SIN} [<2>] { 5 SPAZI} 

{GIU'H 4 SIN} {GIU'} {SIN} {BLK}TYRO" : rem 254 

30930 PRINTSPC (32)"{ 5 SU}{RVS}{BLK}ARYA{ 2 GIU'} 

{ 2 SIN}[<2>] {GIU'}{BLK} { 3 SIN} [<2>] {GIU'} 

{ 4 SIN}{BLK}£[<!>]{ 5 SPAZI}{BLK}[<*>]" :rem 188 
30932 PRINTSPC(15)"TGRN}{GIU'}{ 8 Q}{ 6 DES}{SU}{ 4 DES} 

{YEL}UCIUCI{GIU' }{ 7 SIN}UK{PES} JKUK " ; :rem 194 

30935 PRINT" {GIU'“} { 7 SIN}B{GIU t T{SIN}b{ 5 DES}B{SU} 

{ 2 SIN } JI_{ 2 GIU ' } { 7 SIN } JI_{GIU ' } {SIN }bT 3 DES}J 
I{SU}{ 2 SIN}UK"; : rem 20 

30936 PRINT"{GIU'}{ 6 SIN}JI{GIU'}{SIN}JK{SU}{SIN}U 

{ 2 C}K{ 2 GIU '}{ 7 SIN} {BLU {DESERTO" : rem 97 

30937 PRINT"THOME}{ 9 GIU'}";SPC(13);"{GRN}{ 12 Q}":PRINT 

SPC(14)"{ 13 Q}" : rem 6 

30940 PRINTSPC (1 6) "f 9 Q} {GIU'H 6 SIN}{ 5 Q}{GIU'} 

{ 12 SIN}{RVS}FORESTA DEI TROLLS" : rem 225 

30945 PRINTSPC (14) " { 2 GIU’}{CYN}[< 3 F>] {GIU’H 3 SIN} 

{ RVS }{ 2 SPAZI } {GIU' }{ 2 SIN}{ 2 SPAZl}{GIU'} 

{ 2 SIN}{ 2 SPAZI}{OFF}[<K>]{SU}{SIN}[<K>]{SU}{SIN} 
[<K>] {WHT} TORRE {GIU'H 6 SIN {MAGICA" ; :rem 242 

30950 PRINTSPC(7)"{ 3 GIU'}{RVS}{BLK}{ 7 SPAZl}{SU} 

{ 7 SIN}£[<2>] [<U>][<1>] [<2>][<U>] {BLK}[<*>]{SU} 

{ 2 SIN} [<2>] { 5 SIN} {SU}{BLK}{SU}{SIN}ORMUZ{ WHT } 



II 

: rem 

1 34 

39990 

GOSUB29000: RETURN 

: rem 

1 63 

39999 

END 

: rem 

238 

40000 

REM -AVVERSARIO- 

: rem 

52 

4001 0 

RESTORE 

: rem 

25 

40020 

QU=INT(RND(0)*50)+1 

:FORK=1TOQU:READNM$,FZ,CM:NEXT 


:rem 158 

40030 FB = INT(FZ/10)*3 :PRINT"{BLK}ATTENTO CO$PRINT"!" 

:rem 151 


40035 PRINT"HAI INCONTRATO"; : rem 219 

40070 PRINT" UN. GOSUB2 9990 : PRINT" 

{GIU'}.{RVS} {RED}" ;NM$ :rem 176 

40080 GOSUB60000: RETURN :rem 140 

40100 DATADINOSAURO,50,20,STREGONE,20,23,AZTECO,25,25,SAM 
URAI,20,35 : rem 12 

40110 DATAGORILLA,30,30,LOTTATORE,28,45,GLADIATORE,35,40 

: rem 121 

40120 DATAIPPOGRIFO,12,26,VICHINGO,33,34,MAGO,10,20 

:rem 246 

40130 DATAHOBBIT,5,5,GUERRIERO,27,43,SOLDATO,28,29 

: rem 3 

40140 DATACENTAURO,25,36,GNOMO,19,23,CAVALIERE NERO,35,46 

:rem 133 
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401 50 

401 60 

401 70 

401 80 

401 90 

40200 

4021 0 

40220 

40230 

40240 

40250 


60000 
6001 0 

60020 

60030 

60090 
601 00 

601 05 

601 1 0 

601 50 
601 60 
601 65 

601 70 

601 75 
601 80 

601 85 
601 87 
601 90 
60200 

60201 


DATAFOLLETTO,18,21,BARBARO,36,43,MERCENARIO,15,29 

:rem 40 

DATASTRANO SKRULL,30,30,CICLOPE,50,55,MOSTRO ALATO, 
57,39 :rem 234 

DATAGOBLIN,37,44,SATIRO,20,29,GRIFONE,37,46 

:rem 128 

DATATITANO,50,60,SERPENTE ALATO,50,30,GIGANTE,43,49 

:rem 131 

DATASAURIANO,39,32,MINOTAURO,34,56,DRAGONE,57,29 

: rem 18 

DATAPTERODATTILO,37,25,DEMONIO,39,20,CANNIBALE,47,2 
7 :rem 6 

DATAMAMMOUTH,43,46,RAGNO GIGANTE,18,35,PREDONE,23,2 
9 :rem 206 

DATAUNICORNO,31,12,ZOMBI,37,41,ORCO,50,40 : rem 242 

DATAUOMO-LUPO,28,34,INDEMONIATO,13,25,KRAKEN,38,40 

:rem 126 

DATATRITONE,22,33,ENORME SCORPIONE,27,40,DIAVOLO,26 
,24 : rem 132 

DATAIGUANA,18,20,COBRA DORATO,23,29,VARANO,28,13,AN 
ACONDA,12,21 : rem 9 


REM -COMBATTIMENTO- :rem 10 

PRINT"{GIU'}{GRN}LA SUA FORZA E'DI.{BLU}";:GOSU 

B2 9990 :PRINTFZ;"{GRN}" :rem 243 

PRINT"E HA. A .{BLU}";:GOSUB29990 :rem 112 

PRINTCM;"{GRN}{DES}IN ABILITA'DI COMBATTIMENTO":GOT 
060100 :rem 81 

GOTO60150 :rem 52 

IF FZ>30THENPRINT"{GIU'}{RED}E'UN AVVERSARIO DURO D 


A UCCIDERE!" 


rem 


41 


IF CM>35THENPRINT"{GIU'}{BLU}ATTENTO ! E'UN OTTIMO CO 
MBATTENTE!" : rem 115 

IF FZ<20ANDCM<25THENPRINT"{GIU 1 }{YEL}QUESTI NON E'D 
I CERTO UN PERICOLO!" :rem 215 

GOSUB29000:POKE53280,5 :rem 67 

POKEYW,l:IFNO=lTHEN60200 :rem 52 

PRINT" {CLR}" ;CO$ {BLK} PENSI DI.":PRINT" 

{GRN}{GIU'}1)ATTACCARE IMMEDIATAMENTE" :rem 48 

PRINT"2)AVVICINARTI AMICHEVOLMENTE":PRINT"3)SCAPPAR 
E VIA" :rem 17 

PRINT"4)PROCEDERE SENZA REAGIRE" :rem 74 

PRINT"5)VEDERE LA TUA SITUAZIONE":PRINT"{ 2 GIU'} 
{RED}RISPONDI CON UN NUMERO E RETURN :rem 120 

INPUT E :PRINT"{CLR}":POKEWY,2 :rem 238 

IFE=5THENGOSUB301 70 :GOTO601 60 :rem 102 

ONEGOTO60200,60300,60400,60500 :rem 133 

PRINT"{CLR}{RVS}{RED}";NM$;"{BLU}{ 2 DES}FORZA=";FZ 
2 DES}ABILITA'=";CM:GOSUB27000 :rem 135 

PRINT"{RVS}{RED}";CO$;"{BLU}{ 5 DES}FORZA=";FO;" 

{ 2 DES}ABILITA'="; AB;"{GIU'}" :rem 8 


29 





60205 PRINTCO$;"{GRN} TI LANCI CONTRO IL TUO AVVERSARIO E 
LO COLPISCI!!":GOSUB29990 :rem 132 

60210 P=INT(RND(1)*(AB+CM))+1 :rem 61 

6021 5 IFP>ABTHENPRINT"MA IL COLPO VA A VUOTO !":GOTO60255 

:rem 73 

60220 PRINT"IL COLPO VA A SEGNO!EGLI URLA DI DOLORE!" 

:rem 26 

60222 PRINT"GLI PROCURI.{YEL}":GOSUB29990 :rem 24 

60225 R=INT(RND(1) *(AB+FZ))+1 :IFR>ABTHENPRINT"...UNA FERI 

TA!":FZ=FZ-3 :rem 146 

60230 IFR<AB/3THENPRINT"...TRE FERITE!":FZ = FZ-10 :GOTO6024 
0 :rem 6 

60235 IFR<ABORR=ABTHENPRINT"...DUE FERITE!":FZ=FZ-5 

: rem 180 

60240 IFFZ<19THENPRINT"{GIU' }{YEL}SEMBRA MOLTO STANCO ! ATT 
ACCALO!" : rem 91 

60245 IFFZ<9THENPRINT"{GIU'}{BLK}STA BARCOLLANDO ! E'SFINIT 
O!" :rem 25 

60250 GOSUB29990:IFFZClTHEN60600 :rem 139 

60255 PRINT"[<7>]{ 2 GIU'JiLtRED} ";NM$;"[<7>] CON UN RIN 
GHIO TI E'ADDOSSO E COLPISCE!":GOSUB29990 :rem 123 

60257 P=INT (RND (1 ) * (CM+AB) ) +1 :QC.=QC+1 : rem 67 

60258 IFNO=lANDQC=1THENFB=INT(FZ/10)*3 :rem 49 

60260 IFP>CMTHENPRINT"MA TU SCHIVI IL COLPO!":GOTO 60280 

: rem 78 

60262 PRINT"TI HA FERITO!STAI SANGUINANDO!":PRINT"HAI SUB 

ITO.{YEL}" :GOSUB29990 :rem 104 

60265 R=INT(RND(1) *(CM+FO))+1 :IFR>CMTHENPRINT"...UNA FERI 
TA!":FO=FO-3 :rem 143 

60267 IFR<CM/3THENPRINT"...TRE FERITE !":FO = FO-10 :GOTO6027 

0 :rem 10 

60268 IFR<CMORR=CMTHENPRINT"...DUE FERITE!":FO=FO-5 


60270 

60272 


:rem 190 

IFFO<1THEN6 0 60 0 :rem 187 

IFFO<19THENPRINT"{GIU'}{RVS}{BLK}LA VISTA TI SI ANN 


EBBIA!" 


rem 
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60274 

IFFO< 9THENPRINT"{GIU 1 }{RVS}{YEL}STAI 

PER CROLLARE!S 


EI TROPPO DEBOLE!" 

: rem 

1 23 

60280 

IFNO=1THENGOSUB2 9000 :GOTO60 200 

: rem 

1 75 

60295 

PRINTSPC(6)"{ 3 GIU 1 }VUOI CONTINUARE? 

(S/N) ” 




: rem 

1 8 

60296 

GETS$: IFS$ = ""THEN60 2 96 

: rem 

85 

60297 

IFS$="N"THEN60400 

: rem 

6 

60298 

GOT060200 

: rem 

58 

60300 

PRINT"{CLR}{RVS}{RED}";CO$;"{OFF},{BLU}PROVI AD 

AVV 


:rem 248 

60310 PRINT"...LUI TI GUARDA...":GOSUB29990 :rem 225 

60320 IFQU>20THENPRINT"{BLK}.MA NON E'UN AMICO E TI A 

TTACCA!{GIU'}" :rem 60 
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60330 

60335 

60340 

60350 

60360 

60370 

60400 

6041 0 

60420 

60425 

60430 

60500 

6051 0 

60520 

60530 

60600 
6061 0 

60620 

60630 

60650 


IFQU>20THENPRINT"{RVS}{GRN}";CO$;"{OFF}{BLU},RICORD 
ATI CHE UN {RVS}{RED}"; :rem 203 

IFQU>20THENPRINTNM$;"{OFF}{BLU} NON E 1 MAI UN AMICO! 
" :rem 220 

IFQU>20THENGOSUB29990:GOTO60255 : rem 3 

Q=INT(RND(1)*(FT+100))+1 :IFQ>FTTHENPRINT"...{BLU}E 
TI ATTACCA! " :GOTO60255 :retn 95 

PRINT"{GRN}...E SI DIMOSTRA UN AMICO !":PRINT"{BLU}E 

GLI TI DONA." :rem 237 

GOSUB2 999 0 :GOSUB2 9600 : RETURN :rem 98 

PRINT"{CLR}{RVS}{RED}"?CO$;"{OFF}{BLU},TI DIMOSTRI 
UN VIGLIACCO E PERDI 2PUNTI IN ABILITA’!" :rem 101 
AB=AB-2 :Q= INT(RND(1)*(30+FT)) :PRINT"{GIU'}{BLK}lL T 
UO AVVERSARIO TI CORRE DIETRO.." :rem 32 

GOSUB29990 :rem 137 

IFQ>FTTHENPRINT"{GRN}...E TI RAGGIUNGE ! LA FUGA NON 
E'SERVITA!":GOTO60255 :rem 184 

PRINT"{GRN}.MA E'MOLTO LENTO ! SEI RIUSCITO A FUG 

GIRE !": RETURN :rem 210 

PRINT"{CLR}{RED}{RVS}";CO$;"{OFF}{BLU},AVANZI NELLA 

SUA DIREZIONE." : rem 17 

Q=INT(RND(1)*(FT+100))+1 :PRINT"{GIU' }{BLK}.. .EGLI T 

I GUARDA." :GOSUB29990 :rem 220 

IFQ>FTTHENPRINT"{GRN}_E TI ATTACCA!":GOTO60255 

:rem 244 

PRINT"{GRN}_E SE NE VA DALL’ALTRA PARTE!":RETURN 

:rem 27 

IFFO<lTHENGOSUB29500 :rem 60 

PRINT"{RED}{RVS}{ 2 GIU'}lL TUO AVVERSARIO CROLLA!E 
'MORTO!":QC=0 :rem 228 

A=INT(CM/10)*2 :AB=AB+A:FO=FO+FB :rem 113 

PRINT"{ 2 GIU'}OTTIENI"; A;"IN ABILITA' E";FB;"IN FO 
RZA{BLK}":GOSUB27000 :rem 160 

GOSUB29000:GOSUB29550: RETURN :rem 85 
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Ritorna in edicola 


Il corso piu entusiasmante su cassetta 
del Gruppo Editoriale Jackson per Commodore 64 

VIC 20 e Spectrum 

200.000 copie vendute 

^ J.l 1 « ! t I _ • *•_» 


del 1 4 fascicolo della prima edizione 


°9 n lìe«oco'° 


Il corso è composto da: 

20 fascicoli + ( _ ... M 

(Quoftordklnall) 

20 cassette + 

5 splendidi raccoglitori 


Oggi è davvero facile imparare il 
Basic. Con Video Basic il corso su 
cassetta che ti permette di 
programmare subito il tuo computer 
E facile: tu chiedi, lui risponde, 
tu impari. Passo dopo passo. 

Sul tuo schermo appaiono le 
domande, le risposte, gli esercizi e 


tu ,«toc fatica, presto e bene, 
impari a conoscere 
e programmare il tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Sinclair. 

Video Basic è in edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Oggi il Basic si impara così. 

Video Basic, il corso su cassetta per 
parlare subito col tuo computer. 


Video Basic 

per imparare non solo il Basic 


Un’altra grande idea firmata 


Milano» San Fit»xisco-LondraV^odrid 
































